character::c,s(99)*99="";i=0 1 i=i+2;j=1 2 k=fget(c);if(c<".")goto3 s(i)(j+1:j+3)="___";s(i+1)(j:)="| |";s(i+2)(j:)="|___|" 3 j=j+4;l=c<"";goto(2,1)l+1+k print'(a)',(trim(s(i)),i=2,99);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).