main=r>>=f f x=do print x;y<-r;print$x+y;f y r=readLn