Found an interesting way to implement that. (define (unfold p f g seed) (do ([s seed (g s)] [xs '() (cons (f s) xs)]) ((p s) (reverse xs))))