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