main@m=getLine>>=print.f.map read.words>>m
f[x,y]|x*y<1=0
 |0<1=x*y+f[x-1,y-1]