Initial checkin.

[bridge-toys] / mason / sheet

<%perl>
$r->content_type("text/plain");
for (my $i = 0; $i < $n; $i++) {
  my @l = Deal::line;
  for (my $j = 0; $j < @l; $j++) {
    $j && $j % $nbox == 0 and $m->out(" ");
    $m->out($l[$j]);
  }
  $m->out("\n");
}
</%perl>

<%once>
use Deal;
</%once>

<%args>
$n => 50
$nbox => 4
</%args>