method private_flag : private_flag -> 'self_type =
                  function
                  | PrPrivate -> o
                  | PrNil -> o
                  | PrAnt _x -> let o = o#string _x in o