clojure: implemented bfs-radius in terms of bfs-shells