main=interact$unlines.f.lines f x=zipWith(""!)(x++[""])$"":x x#b|x<"."=' '|0<1=b (p!x)y|x==y=['|'|p>" "]|0<1=max y p#'|':max x y#'_':(y!drop 1x$drop 1y)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page