class
     SIMPLE_VAR

inherit
     IDENTIFIER
           redefine
                 action,
                 construct_name
           end

     POLYNOM

create
     make

feature {NONE}

     construct_name: STRING is
           once
                 Result := "SIMPLE_VAR"
           end

     action is
           do
                 info.set_child_value (info.int_value (token.string_value))
           end
     
end -- class SIMPLE_VAR