(define make-node (lambda (element rest) (let ((node (make-vector 2))) (vector-set! node 0 element) (vector-set! node 1 rest) node))) (define node-element (lambda (node) (vector-ref node 0))) (define node-rest (lambda (node) (vector-ref node 1))) ; Example (define node (make-node 5 '())) (node-element node) ⇒ 5 (node-rest node) ⇒ () ; Compare: (define node (cons 5 '())) (car node) ⇒ 5 (cdr node) ⇒ ()