Class Real

Real instproc init {x} {
    $self instvar value_
    set value_ $x
}

Real instproc multiply {x} {
      ... FILL IN ...    
}

Real instproc divide {x} {
    $self instvar value_
    puts [expr $value_ / [$x set value_]]
}


Class Integer -superclass Real

Integer instproc divide {x} {
      ... FILL IN ...    
}

set realA [new Real 12.3]
set realB [new Real 0.5]

$realA multiply $realB
$realA divide $realB

set integerA [new Integer 12]
set integerB [new Integer 5]

$integerA multiply $integerB
$integerA divide $integerB