for($i=0;($_=<>)!~/h/;$i=0 if$i==256){$i++if/i/;$i--if/d/&&$i;$i*=$i if/s/;print"$i\n"if/o/}