(defn api-parse [src]
	{} #TODO parse json
	)

(defn api-gen [api]
	@{} #TODO gen bindings
	)

(defn main [_ api-src api-dest & _]
	(def api
		(with [fd (file/open api-src :r)]
			(api-gen (api-parse (:read fd :all)))))
	(def api-bin (make-image api))
	(with [fd (file/open api-dest :w)]
		(:write fd api-bin))
	0)

