Loop + Maping with a side effecty fn over a seq

loop.clj

(defn side-effecty-fn [arg]
  (print (str "Hit the fn: " arg "\n" ))
  )

(defn loopy [begin end]
  (loop [current begin]
    (if (> current  end)
      "Done"
      (do
          (print (str "Calling with " current "\n"))
          (dorun (map side-effecty-fn (cons current ["aaa" "bbb"])))
        (recur (inc current))))))

Expected: (loopy 2 3)
Calling with 2
Hit the fn: 2
Hit the fn: aaa
Hit the fn: bbb
Calling with 3
Hit the fn: 3
Hit the fn: aaa
Hit the fn: bbb
"Done"

Actual:
Calling with 2
Calling with 3
"Done"