#define F(x,c);for i:=1to length(s)do if^`<s[i]then t[x+2*i]:=#c;
var s,t,u:string;i:word;begin
str(s:99,u);t:=u;repeat
readln(s)F(,_)writeln(trim(t));t:=u;F(-1,|)F(,_)F(1,|)until eof;write(t)end.