; Test code for CPS problem

(flatten-cps '() (list-k)) ; (()) 
(flatten-cps '(a) (init-k)) ; (a)
(flatten-cps '(a (b)) (init-k)) ; (a b)
(flatten-cps '((a) b) (init-k)) ; (a b)
(flatten-cps '((a) ()  b) (list-k)) ; ((a b))
(flatten-cps '(() (((a b (c)) () (d) e) () f)) (init-k))
   ; (a b c d e f)