method virtual_flag =
                  fun f ->
                    function
                    | Ast.ViVirtual -> pp f "virtual@ "
                    | Ast.ViNil -> ()
                    | Ast.ViAnt s -> o#anti f s