$_=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).$/.$_