let node_stmt_exn v =
  match node_stmt_opt v with None -> raise Not_found | Some s -> s