Tetris by notogawa(embed)

main=interact$unlines.g 15.map(g 10).i(drop 10).map(\n->"# "!!(0^mod n 2)).i(`div`2).f
i=iterate
g=(reverse.).take
f s|s>" #"=537399949|s>"    #"=0x800010040d4b440|1>0=0x100202ff2000053bfcffbfe

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top