(defun rev (l)
(setq r nil)(dotimes (n (list-size l))
(push (nth n l) r)
return r))
(setq k (rev '(a b c d)))
(print k)
KGRlZnVuIHJldiAobCkKIChzZXRxIHIgbmlsKShkb3RpbWVzIChuIChsaXN0LXNpemUgbCkpCiAgICAgKHB1c2ggKG50aCBuIGwpIHIpCiAgICAgcmV0dXJuIHIpKQooc2V0cSBrIChyZXYgJyhhIGIgYyBkKSkpCihwcmludCBrKQogICA=