let pretty_nodes fmt nodes =
  let pretty_node n = Format.fprintf fmt "%a@." pretty_node n
  in List.iter pretty_node nodes