main=mapM print$[0..49]>>=(\x->[50-x,51+x])