let print_team_by_group_project_forge (s:out_channel) (gl:student list)
    (padd:paddress) (groupnum:int) (teamnum:int) = 
    let hpr = Printf.fprintf in     
    let gid = Printf.sprintf "%s-g%dt%d" (get_group_project_id groupnum padd) 
      groupnum teamnum in 
      hpr s "./project-create.rb -create "
      hpr s "-name \"%s\" " (Printf.sprintf "%s-Groupe%d-Equipe%d" 
        (get_group_project_name groupnum padd) groupnum teamnum);
      hpr s "-id %s " gid;
      hpr s "-parid %s " (get_group_project_id groupnum padd);
      hpr s "-modules \"wiki,repository\" ";
      hpr s "-repo \"http://vulcain.enseirb.fr:7000/svn-private/%s\" " gid;
      (* Print programmers *)
      let pro = get_progs gl groupnum padd teamnum in  
      let log = List.map (fun t -> Printf.sprintf "%s (Student)" t.login) pro in
        hpr s "-memb \"%s\"\n" (String.concat ", " log)