<score>

sub pascal {
    my ($rows) = @_
    return $rows * ( $rows + 1 ) / 2;
}
[download]

</score>

Update: Nevermind, I missed your intent.

After Compline,
Zaxo