#!/usr/bin/perl

use strict;
use warnings;

sub fact {
    my $n = shift;
    my $result = 1;
    foreach my $i (1 .. $n) {
        $result *= $i;
    }
    $result;
}

foreach my $i (1 .. 170) {
    print "$i! = ", fact($i), "\n";
}