main=interact$unlines.scanl1(' '%).lines (p%(c:d))(a:b)=max[a][c|a<'.',p<'.']++(a%d)b ('.'%y)x=x (p%y)x=x++y
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page