(while(do('print(x(read)(- x 1))(y(read)(- y 1))(r 0(+(* x y)r)))((=(* x y)0)'r)))