cola-datatype

#lang eopl

(define-datatype cola-exp cola-exp?
  (cola-vacia)
  (cola-no-vacia(cola cola-exp?)
                (num number?)))

(define top
  (lambda (colita)
    (cases cola-exp colita
      (cola-no-vacia (cola num)
            (if (eqv? cola cola-vacia)
                 num
                (top cola)))
      (cola-vacia()'cola-vacia)

      )
    )
  )

(define e(cola-no-vacia (cola-no-vacia
         (cola-no-vacia
            (cola-no-vacia (cola-vacia) 3)
              4)
              5)
              6))