main=putStr$do y<-show[round$x+sqrt x|x<-[2..90]];y:[' '|y<'0']