gets
~/ /
r=gets[a=~-(eval$')]
m=-c=1;c+=r!=$_[a+=m**r.ord]?m:1while c>0
p -~a