Snowfall by rst76

main=interact$unlines.filter(any(>' ')).f(:).f(&).lines
f=($repeat"").foldr.zipWith
x&(' ':z)=' ':x&z
x&y=x:y

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

download

return to the top page