Now I research OOP-part of Scheme. I can define class in Scheme like this: (define (create-queue) (let ((mpty #t)