let register name pref f =
    all := (pref, (name, f)) :: !all