$n=int(rand(1001));print'>';
while(<>){++$i;last if$_==$n;$_>$n?$n--:++$n;print'Too ',$_>$n?'big':'small',"\n>";}
print"Won in $i tries\n";