{W:=stdin upTo:$
.S:=stdin upTo:0}do:[:q|T:=''.2to:(S indexOf:$
)do:[:x|-1to:150by:13 do:[:y|T:=T,{S at:x+y}].T:=T,'
'].S:=T copyReplacingAllRegex:W,'|',W reverse with:(W collect:[:c|$ ])].S display