(in-package #:nothing)

(progn
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%"))))
 (progn
  (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   (when
    (read-line str)
    (format t "This file had some things in int, yay!~%")))))