sig
  val loop :
    (Pervasives.out_channel -> 'a -> unit) ->
    ('a Env.t -> O.Ast.t -> 'a) -> unit
end