(loop [count 0
       min (read-string (read-line))
       s (map read-string (clojure.string/split (read-line) #" "))]
  (if (= (first s) nil)
    (println count)
    (if (<= (first s) min)
      (recur (inc count) (first s) (rest s))
      (recur count min (rest s)))))
