anchor.diff:  	  (let ((res (submit-solution (pathname-name f) (namestring f))))
   	    (case res
   	      (:solved ;;move to good_solutions
  -	       (asdf::run-shell-command
  +	       (uiop::run-program
   		(format nil "mv ~A ~A/~A.txt" (namestring f) good-folder (pathname-name f)))
  -	       (asdf::run-shell-command
  +	       (uiop::run-program
   		(format nil "cp ~A/~A ~A/~A.txt" problem-folder (pathname-name f)
   			solved-problem-folder (pathname-name f))))
   	      (:partial
  
positive.code: 
  (defun submit-problem (path-to-prob-file timestamp)
    (sleep 1)
    (asdf::run-shell-command 
     (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")
  
negative.code: 
  (defun submit-solution (problem-id path-to-sol-file)
    (sleep 1)
    (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")
  