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