$,=$\=$/; while($n=<>){ @_=(); $_=' 'x($n+1).'|'; @_=($_)x($n*4); $i=0; ++$i, ($i>$n*2 and $i<=$n*3 and s/$/' 'x($n).'|'/e), ($i>$n*1 and $i<=$n*2 and s/ /|/), ($i==$n and $_=' '.'_'x$n.'|'.'_'x$n), ($i==$n*2 and $_='|'.'_'x$n.'|'.'_'x$n), ($i==$n*3 and s/(?<=.) +/'_'x$n/ge), for @_; print @_ }