#!/usr/bin/perl -w

print "Enter the number of partners: ";
chomp ($n = <STDIN>);

print "Enter the number of rounds of bargaining: ";
chomp ($r = <STDIN>);


print "\nThe number of calls is ", $n*($n-1)*$r/2, "\n\n";

exit 1;


__END__