let doc = doc () in
let query = query () in
let asta = build_asta query in
- let run = compute_run doc asata in
+ let run = compute_run doc asta in
let selected_nodes = Run.selected_nodes doc asta in
Format.pp_set_margin err_formatter 80;
fprintf err_formatter "@[<v 0>##### Query #####@. %a@]\n"