let
set_project_id p id = p.id := id