let rec f?(r=read_line())s=r="i"&f(s+1);r="d"&f(max(s-1)0);r="s"&(s=16&f 0;f(s*s));r>"h"&()=Printf.printf"%d
"s;f s;;f 0