p=print main=(p%)%0 f%x=do y<-readLn;p$x+y;f y;p%y