class ['a] log : 'a media -> object .. end
['a]
'a media ->
object
end
method level : int
int
method set_level : int -> unit
int -> unit
method media : 'a media
'a media
method print : ?level:int -> string -> unit
?level:int -> string -> unit