type msg_kind = | Error| Warning| Info| Msg| Log of int
val print : msg_kind -> ('a, Stdlib.Format.formatter, unit) Stdlib.format -> 'aval with_basic_output : Stdlib.Format.formatter -> ('a -> 'b) -> 'a -> 'bval with_rich_output : Stdlib.Format.formatter -> ('a -> 'b) -> 'a -> 'b