(defn feed-forward [input weights biases]
  (doseq [[w b] (map vector weights biases)]
    (set! input (sigmoid (+ (dot w input) b))))
  input)