let display_values_html (pr:string->unit) = 
  pr "<div>\n<table>\n";
  pr (Printf.sprintf "<tr><td>Project file : </td><td>%s</td></tr>\n" !etud_file); 
  pr (Printf.sprintf "<tr><td>Num students : </td><td>%d</td></tr>\n"
        (List.length !student_list)); 
(*   pr (Printf.sprintf "<tr><td>Max done : </td><td>%d</td></tr>\n" !max_done);  *)
(*   pr (Printf.sprintf "<tr><td>Max project : </td><td>%d</td></tr>\n" !max_project);  *)
  pr (Printf.sprintf "<tr><td>Sel group : </td><td>%s</td></tr>\n" (convert_int_list_to_string !groupssel)); 
  pr (Printf.sprintf "<tr><td>Groups size : </td><td>%s</td></tr>\n" 
        (String.concat ";" (List.map (fun gnum -> Printf.sprintf "%d -> %d" gnum (get_group_size gnum)) !num_groups))); 
  pr (Printf.sprintf "<tr><td>Ref sort : </td><td>%s</td></tr>\n" (string_of_sort !ref_sort)); 
  pr (Printf.sprintf "<tr><td>Assign Resp : </td><td>%s</td></tr>\n" 
        (if !do_assign_resp then "true" else "false")); 
  pr "</table>\n</div>\n"