(defun pfx_1 (L S)
        (cond ((equal L nil) (if (equal (length S) 1) (car S) ()))
                  ((listp (car L)) (pfx_1 (cdr L) (cons (pfx_1 (car L) ()) S)))
                  ((numberp (car L)) (pfx_1 (cdr L) (cons (car L) S)))
                  (T (pfx_1 (cdr L)
                                  (cons (eval (list (car L) (cadr S) (car S)))
                                            (cddr S))))))

(defun pfx (L) (if (equal (pfx_1 L ()) nil) '"Bad Input" (pfx_1 L ())))