#lang racket
;(require "chez-init.rkt")
(require racket/trace)


(define length-cps
  (lambda (ls k)
    (if (null? ls)
        (k 0)
        (length-cps (cdr ls) (lambda (x) (k (+ 1 x)))))))

(define member-cps
  (lambda (e ls k)
    (if (null? ls)
        (k #f)
        (if (eq? e (car ls))
            (k ls)
            (member-cps e (cdr ls) k)))))