Snowfall by onyxite

import Data.List
r=reverse
t=transpose
main=interact$(\x->unlines$t$map(r.take(maximum$map length x).(++repeat ' '))x).map(r.filter(/=' ')).t.lines

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

download

return to the top page