class TEST

create
   make

feature

   make
      local
         parser: PARSER;
         semantic_analysis: SEMANTIC_ANALYSIS;
         execute: EXECUTE
      do
         create parser.make;
         parser.parse;
         if not parser.error then
            create (parser.parse_tree).semantic_analysis;
            if semantic_analysis.passed then
               create (parser.parse_tree).execute;
               print("Result: " + execute.out + "%N")
            end
         end
      end

end -- TEST