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