$_=join"| ",eval'map{s/./qw(23 11 02 30)[$&]/reg,s/./qw(00 23 12 31)[$&]/reg}'x($n=<>). 23,'';s/\d/('| ','|_','|___')[$&]/eg;print$"._ x(2**($n+2)-1).$/.$_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page