(defun get-file-lines (name)
  (uiop:read-file-lines name))