sub gradeTest {
     my $answer, $runningTotal;
     $runningTotal = 0;
     $answer = lc(param(ans1));
     # For answer 1, G6-G9 is full credit.  
     # G0-G5 and K0-K5 are half credit
     $runningTotal += 1, return if $answer =~ /^g[6-9]$/;
     $runningTotal += .5, return if $answer =~ /^g[0-5]$/;
     $runningTotal += .5, return if $answer =~ /^k[0-5]$/;
}