(display (cons 'egg '()))

(newline)

(define kar
  (lambda (c)
    (c (lambda (a d) a))))

(define kdr
  (lambda (c)
    (c (lambda (a d) d))))

(define kons
  (lambda (a d)
    (lambda (selector)
      (selector a d))))

(define kdisplay
  (lambda (c)
    (c (lambda (a d)
         (cond 
           ((null? a)(display ""))
           (else (display "(")
                 (display a)
                 (k2display d)
                 (display ")")
                 (newline)))))))

(define k2display
  (lambda (e)
    (cond 
      ((null? e)(display ""))
      (else 
       (e (lambda (a2 d2)
            (display " ")
            (display a2)
            (k2display d2)))))))

(define lots
  (lambda (m)
    (cond
      ((zero? m) '())
      (else (kons 'egg (lots (- m 1)))))))

(kdisplay (kons 'egg '()))

(kdisplay (lots 5))

(display (lots 5))

(egg)
(egg)
(egg egg egg egg egg)
#<procedure:/t.scm:16:4>