 
 (defn end-game [world gid]
   (http/upload-game gid (get world gid))
-  (spit (str gid ".game") (get world gid))
   ;(delete-game gid world)
   world
   )


(defn valid? [world {:keys [command bid gid payload]}]
  (case command
    "throw" (contains? world (find-game bid world))
    "start" true
    "delete" true

        (do (reset! world-atom (update-world @world-atom message)) (recur (read-line)))
        (recur (read-line))
        )
      )))