main=mapM print$do x<-[1..50];[51-x,50+x]