[Scheme]CPS

cps.scm

;default
(define (fact lst)
  (if (null? (cdr lst))
	(car lst)
	(begin
	  (print lst)
	  (* (car lst) (fact (cdr lst))))))
;CPS
(define (fact/cps lst cont)
  (cond
	((null? lst) '())
	((zero? (car lst)) (cont 0))
	((not (null? (cdr lst))) 
	 (begin 
	   (print lst) 
	   (* (car lst) (fact/cps (cdr lst) cont))))
	(else (car lst))))