main=mapM print$[1..50]>>=(\n->[51-n,n+50])