Help for this page

Select Code to Download

Select or download this

my @line= (1);
while( 1 ) {
    print "@line\n";
...
        $line[$_] += $line[$_-1];
    }
}