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 blob-lookup (blob-hash blob-type &optional problem-id)
    (sleep 1)
    (asdf::run-shell-command 
     (format nil "curl --compressed -L -H Expect: -H 'X-API-Key: ~A' 'http://2016sv.icfpcontest.org/api/blob/~A' > /tmp/blob"
  	   (get-team-key) blob-hash))
    (with-open-file (foo "/tmp/blob")
  
negative.code:       (:snapshot (yason::parse foo))
        (:problem 
         (format t "problem:~A~%" problem-id)
         (uiop::run-program (format nil "cp /tmp/blob /tmp/problems/~A" problem-id))
         (uiop::run-program (format nil "cp /tmp/blob /tmp/newproblems/~A" problem-id))
         )
        (:solution
         ;;copy to solutions_from_server
  