i%n=g$i`divMod`n where g(d,m)|d<1=c|0<1=d%n++c where c|m>9=[toEnum$m+87]|0<1=show m
main=mapM putStrLn[unwords[i%n|n<-[2..i]]|i<-[2..63]]