sub pascal {
  my ($rows) = @_;
  print "1\n";
  for (my $outer = 1; $outer < $rows; $outer++) {
    my $inner = $outer;
    print "1";
    for ($i = 1; $i < $inner; $i++) {
      my $denominator = factorial($i)*(factorial($inner-$i)); 
      my $pascalnum = factorial($inner)/$denominator if ($denominator != 0);
      print " $pascalnum" if ($outer > 1);
    }
    print " 1\n";
  }
}