main=mapM putStrLn[unwords[mapM(take b)[['0'..'9']++['a'..]|x<-[0..5],b^x<=n]!!n|b<-[2..n]]|n<-[2..]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page