x = <>use Math::BigInt; $x = $*IN; while(1){ $x=$x-1; if($x==0)break; my $input = $*IN; my $x = Math::BigInt->new($input); print $x->bsqrt(); }
Standard input is empty
===SORRY!=== Unsupported use of <>; in Perl 6 please use lines() or () at line 1, near "<>use Math"
Standard output is empty