;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define num_args
  (lambda x
    (if (null? x)
        0
        (+ 1 (apply num_args (cdr x))))))

(define num_args-cps
  (lambda x
    (let n_args-cps ((x x) (k (lambda (x) x)))
        (if (null? x)
            (k 0)
            (n_args-cps (cdr x) (lambda (v)(k (+ 1 v))))))))
;Value: num_args-cps

(num_args-cps 1 2 3 4 5 6 7 8 9 0)
;Value: 10

(num_args-cps '(1 2 3 4 5 6 7 8 9 0))
;Value: 1