(define length
  (lambda (ls)
    (call/cc (lambda (k) (length-cps ls k)))))

(define length-cps
  (lambda (ls k)
    (cond [(null? ls) (k 0)]
	  [else (+ 1 (length-cps (cdr ls) k))])))