(defun product-and-quotient (x y)
(if (zerop y)
(error "'Y' mustn't be a zero"))
(list :product (* x y) :quotient (/ x y)))
(format t "answer is: ~a~%" (product-and-quotient 10 2))
KGRlZnVuIHByb2R1Y3QtYW5kLXF1b3RpZW50ICh4IHkpCiAgKGlmICh6ZXJvcCB5KQogICAgKGVycm9yICInWScgbXVzdG4ndCBiZSBhIHplcm8iKSkKICAobGlzdCA6cHJvZHVjdCAoKiB4IHkpIDpxdW90aWVudCAoLyB4IHkpKSkKCihmb3JtYXQgdCAiYW5zd2VyIGlzOiB+YX4lIiAocHJvZHVjdC1hbmQtcXVvdGllbnQgMTAgMikp