main@m=getLine>>=f.map read.words>>m f[x,y]=print$x*y-x-y