#!/usr/bin/perl

sub wszystkie_zdarzenia {
	my $wynik = 1;
	while ( @_ ) {
		$wynik *= shift;
	}
	return $wynik;
}

print wszystkie_zdarzenia(0.64, 0.52, 1-1e-14)