let regt t optn desc helpt = register_fun ht optn ((t, desc, helpt): transform record)