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