#!/usr/local/bin/webwork-perl

$tot =0;

for $j (@ARGV) {
 print "$j: ";
 $t = `showActive $j a`;
 $tot += $t;
 print "$t";
}

print "\nTotal: $tot\n";