GrafiteAst.statement -> unit) ->
((GrafiteTypes.status * LexiconEngine.status) *
(DisambiguateTypes.domain_item * LexiconAst.alias_spec) option) list
-
-(* this callback is called on every grafite command *)
-val set_callback: (GrafiteParser.ast_statement -> unit) -> unit