let candidate n cand = fprintf !dot_fmt "%a@." print_node cand; fprintf !dot_fmt "%d -> %d [%s]@." n.tag cand.tag cedge_candidate