for(n<-"shplujsvktir")printf((" "*3*(n%7)+"%3d"*(n/7+15)grouped 21)++"\n"mkString"\n",1 to n:_*)