(defn traverse [maze f]
  (let [{cells :cells size :size} maze]
      (->Maze
        (map (fn [cell] (f cell)) cells)
        size)))