j:concat;d:"| ";e:d;f:"|_";g:1;for i in split(?read\-line(),"")do(g:3-g,if i=" "then(g:1,d:j(d,h:" | "),e:j(e,h),f:j(f,"_|_"))else(d:j(d,[" ",|][g]),e:j(e,i),f:j(f,[|,_][g])));?format(?t," ~v@{_~}
~a |
~a |
~a_|",slength(d),d,e,f);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).