Too bad CPS is SLOW AS FUCK

(fact values 100000), ten times (cps)
cpu time: 431239 real time: 431781 gc time: 132998
(fact 100000), ten times (tail recursive)
cpu time: 7 real time: 6 gc time: 0

>>2
Isn't cps (cps-f cont args)? With cps-f defined as (k (do-something-with-args))?