l=[0..15] main=mapM(\y->putStrLn[(l>>"0123456789abcdef")!!(x*y)|x<-l])l
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page