anchor.diff:  
   (defun submit-solution (problem-id path-to-sol-file)
     (sleep 1)
  -  (asdf::run-shell-command 
  +  (uiop::run-program 
      (format nil "curl --compressed -L -H Expect: -H 'X-API-Key: ~A' -F 'problem_id=~A' -F 'solution_spec=@~A' 'http://2016sv.icfpcontest.org/api/solution/submit' > /tmp/solution"
   	   (get-team-key) problem-id path-to-sol-file))
     (with-open-file (foo "/tmp/solution")
  
positive.code: 
  (defun get-latest-snapshot ()
    (sleep 1)
    (asdf::run-shell-command 
     (format nil "curl --compressed -L -H Expect: -H 'X-API-Key: ~A' 'http://2016sv.icfpcontest.org/api/snapshot/list' > /tmp/snapshot"
  	   (get-team-key)))
    (with-open-file (foo "/tmp/snapshot")
  
negative.code: 
  (defun submit-problem (path-to-prob-file timestamp)
    (sleep 1)
    (uiop::run-program 
     (format nil "curl --compressed -L -H Expect: -H 'X-API-Key: ~A' -F 'solution_spec=@~A' -F 'publish_time=~A' 'http://2016sv.icfpcontest.org/api/problem/submit' > /tmp/problem"
  	   (get-team-key) path-to-prob-file timestamp))
    (with-open-file (foo "/tmp/problem")
  