val print_status: unit -> unit
val visit_status:
+ (string -> string -> unit) -> (string -> bool -> string -> unit) ->
+ (string -> unit) -> (unit -> unit) -> (unit -> unit) -> (string -> unit) ->
(string -> string -> unit) -> (string -> bool -> string -> unit) -> (unit -> unit) ->
(string -> string -> unit) -> (string -> bool -> string -> unit) -> (unit -> unit) ->
unit