doesntwork.lisp

(defun file-lines (path)
   (with-open-file (s path)
     (loop for line = (read-line s nil nil)
        while line
        collect line into lines
        finally (return (values lines)))))

(defun get-solution (lines)
  (if (> (length lines) 1)
      (progn (get-solution (cdr lines))
             (print lines))
      (progn (car lines)
             (print (car lines)))))

(defun solve (path)
  (get-solution (file-lines path)))