t/t4018/scheme-class

   1 (define book-class%
   2   (class* () object% RIGHT
   3     (field (pages 5))
   4     (field (ChangeMe 5))
   5     (define/public (letters)
   6       (* pages 500))
   7     (super-new)))