(let [:horse_racing: (fn [:horse:] '(:racehorse: :guardsman:))] (map :horse_racing: ponies))