(let [name-values (select-keys (zipmap names values) names-to-select)]
        [ (vec (keys name-values))
            (vec (vals name-values)) ])