let journalized_rm_unused_globals =
  Journal.register
    "!Db.Sparecode.rm_unused_globals"
    (Datatype.func2
       ~label1:("project"Some Project.current) Project.ty
       Datatype.unit
       Project.ty)
    unjournalized_rm_unused_globals