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