1 665c255d 2023-08-04 jrmu (defun reverse-r (seq)
2 665c255d 2023-08-04 jrmu   (fold-right (lambda (x y)
3 665c255d 2023-08-04 jrmu 		(append y (list x)))
4 665c255d 2023-08-04 jrmu 	      nil
5 665c255d 2023-08-04 jrmu 	      seq))