(defrecord Team [name])

(defrecord Player [name team])

(def player-1 (Player. 'Joe (Team. 'Arsenal)))

(print (:name player-1))

(print (:name (:team player-1)))