Change vars to fn/let and wrap

gistfile1.clj

(defn grid [rows cols]

  (let [cells (for [row (range rows), col (range cols)] [row col])]

    (defn select-cells-by-row [row]
      (filter (fn [[r c]] (= row r)) cells))
 
    (defn print-cells-by-row [row]
      (doseq [cell (select-cells-by-row row)]
        (println cell)))
  )

  print-cells-by-row
)