(defn -main [& args]
  (let [tfs (TeamFoundationServerFactory/GetServer tfs-server-name)
	wi-store (WorkItemStore. tfs)
	project (first (filter #(= (.Name %) tfs-project-name) (.Projects wi-store)))
        bug-type (first (filter #(= (.Name %) tfs-wi-type) (.WorkItemTypes project)))