#!/usr/bin/perl -F'#' -wn
chomp;
($id, $dept, undef, $name, @q[0..3], undef, @rc[0..2], undef,
$rep_ta, $rep_prof, undef, $raw, $semester) = split '#';
if ($id =~ /^s\d+(\d)$/) {
    print "<tr><td>$1";
    for ($i=0; $i<4; ++$i) {
	print $q[$i]=~/^\d+$/ ? $q[$i]%10 : "-";
    }
    printf " <td>%s <td>%4.1f <td>%2d\n", join('', @rc), $raw, $semester;
} else {
#    print "<tr><td colspan=4>$_\n";
}