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