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