sub pascal {
    my @row;
    foreach (1 .. shift) {
        push @row => 1;
        $row [$_] += $row [$_ - 1] for reverse 1 .. @row - 2;
        print "@row\n";
    }
}