let _self =
  Db.register_compute "Value.compute"
    [ Db.Value.self ]
    Db.Value.compute
    (fun () -> if not (Db.Value.is_computed ()) then force_compute ())