object
  method code :
    ([> Cf_journal.Basic.level ] as 'a) -> Cf_journal.Basic.Priority.t
  method tag : 'a -> string
end