main=interact$concatMap f.lines;f x=show(0!(x++"__"))++" ";n!(x:s:p)|x=='|'=n+1!(s:p)|s=='|'=(n+1)!p|0<1=n