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)