Even IO in Clojure causes TLE

Even doing simple IO and printing zero for solution causes TLE in problem STRCH

Maybe I am doing something simple incorrectly . Here’s my code perhaps someone from the codechef team can help isolate the issue on the server side.

(defn gaps2[a b]

(defn -main []
(let [n (Integer/parseInt (read-line))]
(doseq [n-itr (range n)]
(as->(read-line) (clojure.string/split #" ")
(printf “%d\n” (gaps2 (first ) (second )))