Tetris by ksk

gets$\
eval"sub /#(.{%d}) /m,' \\1#';"%"x\x83A"[~/#//4]*4
gsub(/
#+$/m){puts" "*10}
print

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

download

return top