S=' ' p=S*40 "$System.in\n".eachLine{c=it+S*40 println((0..33).sum{i->(p[i-1,i]-S-S?'|':S)+(p[i]+c[i]-S-S?'_':S)}-~/ *$/) p=c}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page