use bigint; $|=1; $z=0; $m=10**100; while($m&&$r ne"="){ print"? 1 $m\n"; $r=<>; chop$r; if($r ne "<"){ $z+=$m; } $m/=2; } print"! $z\n";