class virtual['level]
prioritizer :object
..end
method virtual code : 'level -> Priority.t
p#code v
to convert the priority level v
to a priority
code with the prioritizer p
.method virtual tag : 'level -> string
p#tag v
to convert the priority level v
to a message
tag with the prioritizer p
.