(defroute ("/" :method :POST) (&key _parsed)
  (let ((uploaded-file-buffer (second (car _parsed)))
    (file-name (format nil "static/~a" (third (car _parsed)))))
    (with-open-file (file-stream file-name :direction :output :if-exists :supersede :element-type '(unsigned-byte 8))
      (loop :with byte
            :while (setf byte (read-byte uploaded-file-buffer nil))
            :do (write-byte byte file-stream))))
  (redirect "/"))