#!/usr/bin/perl

use warnings;

my $prod=1;

for my $x(@ARGV)
{
	$prod*=$x;
}

print "$prod\n";