say '?0 0?1 0!';
my $t = get;
my $u = get;
my $a = ($t - $u + 1) +> 1;
my $b = ($t - $a * $a) ** .5;
put [$a, $b];