method private_flag =
                  fun f ->
                    function
                    | Ast.PrPrivate -> pp f "private@ "
                    | Ast.PrNil -> ()
                    | Ast.PrAnt s -> o#anti f s