#!/usr/bin/perl
use strict;
use warnings;

my @row;

print "1\n";
for (0 .. 10) {
    @row = yh(@row);
    print "@row\n";
}


sub yh {
    my @prevRow = @_;
    my @nextRow = 1;

    if (@prevRow) {
        for my $i (1 .. $#prevRow) {
            $nextRow[$i] = $prevRow[$i - 1] + $prevRow[$i];
        }
    }
 
    push @nextRow, 1;
    return @nextRow;
}