Class MonthlyEmployee Employee monthlySalary
Methods MonthlyEmployee 
   new
      super new.
      monthlySalary <- 0.
      ^self
|
   salary
      ^monthlySalary
|
   salary: aSalary
      monthlySalary <- aSalary.
]