Fill in the blanks by tttaki

main=interact$f.lines
f(w:x)=w%unlines x
[]%s=s
(a:s)%(b:t)|b=='_'=a:s%t|1>0=b:(a:s)%t

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

download

return to the top page