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