#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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).