let
set_project_name p name = p.name := name