# Define class Real
Class Real

# contructor for real number
Real instproc init {x} {
    $self instvar value_
    set value_ $x
}

# function to add two real numbers
Real instproc add {x} {
    $self instvar value_
    puts [expr $value_ + [$x set value_]]
}

# function to multiply two real numbers
Real instproc multiply {x} {
    #fill in here
}

# define two real numbers
set realA [new Real 12.3]
set realB [new Real 0.5]

# adding and multiplying two real numbers
$realA add $realB
$realA multiply $realB

# Adding and multiplying two integers
# Define class Integer as a subclass of Real
Class Integer -superclass Real

# define two integers
set integerA [new Integer 12]
set integerB [new Integer 5]

# what you need to do to add and multiply these two integers?
# fill in your answer below.