racklog

gistfile1.txt

(define %coffee
  (%rel ()
        [('moka)]
        [('turkish)]
        [('expresso)]
        [('cappuccino)]
        [('latte)]))

(define (test data)
  (if data
      (cons data (test (%more)))
      '()))

(test (%which (c) (%coffee c)))