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