(defun pjmain ()
  (with-open-file (stream "C:\\lispstuff\\tri.svg")
       (do ((line (read-line stream nil)
                  (read-line stream nil)))
           ((null line))
       (format t "~A~%" line))))