type asexp
type 'a t
val return : 'a ‑> 'a t
val bind : 'a t ‑> f:('a ‑> 'b t) ‑> 'b t
val sexp : asexp ‑> unit t
val run : (char ‑> unit) ‑> unit t ‑> unit