let pretty fmt v = pp_node_type fmt (node_type v)