(map (fn [x] (strings/case upper .x)))