(defun prefix (a y)
(cond ((null y) nil)
(t (cons (cons a (car y))
(prefix a (cdr y))))))
(print (prefix "a" '(1 2 3 4)))
IChkZWZ1biBwcmVmaXggKGEgeSkKICAoY29uZCAoKG51bGwgeSkgbmlsKQogICAgICAgICh0IChjb25zIChjb25zIGEgKGNhciB5KSkKICAgICAgICAgICAgICAgICAocHJlZml4IGEgKGNkciB5KSkpKSkpCiAKKHByaW50IChwcmVmaXggImEiICcoMSAyIDMgNCkpKQo=