d:=e:=f:="";g:=1;File standardInput readLine foreach(b,g=1-g;if(b>32,d=d .."| "slice(g,g+1);e=e ..(b asCharacter);f=f .."_|"slice(g,g+1),g=1;d=d .." | ";e=e .." | ";f=f .."_|_"));write(" ".."_"repeated(d size+2).."
| ".. d .." |
| ".. e .." |
|_".. f .."_|")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).