(defn pos [ls elem]
  (cond (empty? ls) -1
        (= (first ls) elem) 0
        :else (+ 1 (pos (rest ls) elem))))