Fantasy Premiere League fetch players

fpl.lisp

(defun fetch-and-spit-player (idx)
  (let ((path (format nil "C:\\temp\\fpl\\~A.json" idx)))
    (with-open-file (fs path :direction :output
                             :if-exists :overwrite
                             :if-does-not-exist :create)
      (format t "Output: ~A~%" path)
      (format fs (flexi-streams:octets-to-string
                   (drakma:http-request 
                     (format nil "http://fantasy.premierleague.com/web/api/elements/~A/" idx))
                   :external-format :UTF-8)))))

(loop for n from 1 to 723
      do (fetch-and-spit-player n))