let print_team_txt gl stu team = 
    let resp = if (!do_assign_resp) then
      Printf.sprintf "%s," (resp_to_string team.r) else "" in
    let stim = (if (team.n<0) then "_" else (string_of_int team.n)) in
    let grad = student_grade stu team.proj in
    let sgrad = (if (grad > 0.) then
         if (String.compare stu.login (!loginsel) == 0) then
           Printf.sprintf ",%s" (string_to_blue (Printf.sprintf "%.1f" grad))
         else if (((String.length !loginsel)>0) && 
                  (belong_to_same_team_as (find_student gl !loginsel) stu team.proj)) then
           Printf.sprintf ",%s" (string_to_green (Printf.sprintf "%.1f" grad))
         else
           Printf.sprintf ",%s" (string_to_red (Printf.sprintf "%.1f" grad))
       else ""in
      (* Actually compute the string *)
    let stra = Printf.sprintf "(%s%s%s) " resp stim sgrad in 
      cut_string_to_length "" stra 
         (if (!do_color_terminal) then 
            if (!do_assign_resp)
            then if (grad>0.) then 22 else 11
            else if (grad>0.) then 20 else 9
          else 11)