main=1#'/' f(c,x)=print(c%x)>>c#x c%'+'=c+1 c%'/'=c`div`2 c%'^'=c*c c#x=getChar>>= \z->f(c%x,z)