ooo, common lisp: (loop for x = seed then (g x) until (p x) collect (f x)) thats pretty…