(defvar *End-Of-File* (gensym) "A unique EOF marker")

(defun lieszeile (name n)
  (setq n (* n 2))
  (with-open-file (rein name :Direction :Input)
    (loop (if (= n 1) (return lies)
      (setq lies (read-line rein NIL *End-Of-File* NIL))) (setq n (- n 1))
    )
  )
)

(defun explode (rein)
  (setq rein (string-left-trim " " rein))
  (if (= (length rein) 0) NIL
    (cons  (parse-integer rein :start 0 :end (- (length rein)
           (length(string-left-trim "1234567890" rein))))
          (explode (string-left-trim "1234567890" rein)) )
  )
)