sig val prepare : unit -> Project.t end