method override_flag : override_flag -> 'self_type =
                  function
                  | OvOverride -> o
                  | OvNil -> o
                  | OvAnt _x -> let o = o#string _x in o