let handle_grade_team cgi = handle_generic "grade" 
            (fun _ t p g -> 
               let grad = try float_of_string (get_html_arg cgi "grade"
               with _ -> 0.0 in  
                 give_mark_to_team g p t grad;
                 flush stdout;) cgi