#!/usr/bin/perl
#
# Il numero di partenza viene fornito come costante.
#
$input = 11;
$numero = $input;
for ($cont = 1; $cont < $input; $cont++)
{
$numero *= $cont;
}
print "Il fattoriale รจ $numero.\n";
IyEvdXNyL2Jpbi9wZXJsCiMKIyBJbCBudW1lcm8gZGkgcGFydGVuemEgdmllbmUgZm9ybml0byBjb21lIGNvc3RhbnRlLgojCiRpbnB1dCA9IDExOwokbnVtZXJvID0gJGlucHV0Owpmb3IgKCRjb250ID0gMTsgJGNvbnQgPCAkaW5wdXQ7ICRjb250KyspCiAgewogICAgJG51bWVybyAqPSAkY29udDsKICB9CnByaW50ICJJbCBmYXR0b3JpYWxlIMOoICRudW1lcm8uXG4iOwo=