let
pretty fmt v = pp_node_type fmt !v.kind