4clojure 143: dot product