        clojure.string/join
        (Integer/parseInt 2)))
 
+
 (def training-data (into [] (for [k (keys scrabble-values)] (char->bit-array k))))
+
 ;; convert the "labels" of the scrabble pieces (scores) into floating-point bit-arrays
 (def training-labels (into [] (for [v (vals scrabble-values)] (num->bit-array v))))
 

  )


(defn test-train-step
  []
  (net/train-step (first training-data) (first training-labels) (create-network) loss-fn))

(defn train
  []


(defn evaluate
  [network]
  (do
    (classify network \j)
    (classify network \k)
    (classify network \a)
    (classify network \q)
    (net/evaluate network training-data training-labels)))


(defn train-and-evaluate
