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