;; ============================================================
;; FULL CPS HUFFMAN ENCODER — PRODUCTION C2L, ALL TAIL CALLS
;; ============================================================

;; REVERSE IN CPS
define... [reverse xs k

;; REVERSE HELPER
define.. [loop xs acc k
or...

;; USE CONTINUATION
and.. null?. xs k. acc

;; ACCUMULATION STEP
and.. pair?. xs
loop... [cdr xs
[cons car. xs acc
k

;; RAISE ERROR
[error '[NOT LIST

;; BEGIN
loop... xs (list) k