Help for this page

Select Code to Download


  1. or download this
    sub defaults {
      my $d1= ( @_ ? shift : 1 );
    ...
    0 2 3
    0 0 3
    0 0 0