1 (defun reverse-r (seq)
2   (fold-right (lambda (x y)
3 		(append y (list x)))
4 	      nil
5 	      seq))