(defrecord Kid [name family-name grandfather-surname])
(def kids [
       (Kid. "Alyssa" "Dufair-McKenna" "Dunne")
       (Kid. "Joe" "Dufair-McKenna" "Dunne")
       (Kid. "Rose" "Dufair-McKenna" "Dunne")
       (Kid. "Ian" "Dufair-McKenna" "Dunne")
       (Kid. "Emma" "Dufair-McKenna" "Dunne")
       (Kid. "Kaitlin" "Dunne" "Dunne")
       (Kid. "Riley" "Dunne" "Dunne")
       (Kid. "Derek" "Cajina" "Rust")
       (Kid. "Cassie" "Carpentier" "Rust")
       (Kid. "Trevor" "Carpentier" "Rust")])

(defn make-gift-map [kids]
  (map (fn [k] [k ]) kids kids))

(defn is-sibling? [kid1 kid2]
  (= (:family-name kid1) (:family-name kid2)))

(defn from-same-grandfather? [kid1 kid2]
  (= (:grandfather-surname kid1) (:grandfather-surname kid2)))