let journalized_rm_unused_globals =
  Journal.register
    "!Db.Sparecode.rm_unused_globals"
    (Type.func ~label:("project"Some Project.current)
       Project.ty (Type.func Type.unit  Project.ty))
    unjournalized_rm_unused_globals