(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)))