val state : Format.formatter -> Data.state -> unit
val query : Format.formatter -> 'a Compile.query -> unit
module Ast : sig ... end