@idiomancy you could use walker

(defn target? [o] (and (map? o) (= 1 (count o)) (#{:S :N} (-> o first first))))
(transform (walker target?) #(-> % last last) data)

hahaha, you bloody wizard you! let me try it out

using cond-path you could do it more precisely

definitely an annoying data format