(def mag (vec) (let (x y) vec (expt (+ (* x x) (* y y)) 1/2)))
-----
(def mag ((x y)) (expt (+ (* x x) (* y y)) 1/2))