#!/usr/bin/perl

use strict;
use warnings;

my $i;
my $j;
my $k;
my @a;
my @b;

$a[0] = 1;
$a[1] = 1;

for($i=0;$i<=10;$i++){
        @a = &yh(@a);
        print @a,"\n";
}


sub yh{
        my(@a)=@_;
        my @b;
        my $j;
        my $k;

        $k = $#a + 1;

        $b[0] = 1;


        for($i=1;$i<=$k;$i++){
                $j = $i - 1;
                $b[$i] = $a[$i] + $a[$j];
        }
        $b[$k] = 1;
        return @b;
}