(defn remove-first
  [lis e]
  (loop [result []
         others lis]
    (let [cur (first others)]
      (cond
       (empty? others) result
       (= cur e) (concat result (rest others))
       :else  (recur (conj result cur)
                     (rest others))))))