m@main=do n<-readLn;putStrLn$[0..8]>>=(\i->"01"!!mod(fromEnum("x\0t@*@t\0x"!!i)`div`2^n)2:cycle" \n"!!i:"");m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page