type t = [
|
`Config of (string * string) list
`Error of string
`Format of string
`Halt
`Unknown
]
val read_input : IO.ic -> t IO.t
val to_sexp : t -> Csexp.t
val output : IO.oc -> t -> unit IO.t
