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