map{$_='/'.__ x--$_.'_/'.' 'x$_.'\ ';0while$_1=y/_/ /r,$\=${_./^ /}.$\.${_./\/ /}=~y'/\\'\/'r,s"(/.*) " $1";$\=!print$",/ |_/g,'_ '}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page