output dollars by BioFALSE(author)

$,=$\=$/;
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 @_
}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page