let get_group_project_teams = 
 do_something_group_project (fun p -> p.teams) 
   (fun () -> failwith "Project has no teams or doesn't exist")