(function ordinal n
  (if ([11 12 13] (rem n 100))
      (str n "th")
      (str n (or ((rem n 10) ["th" "st" "nd" "rd"]) "th"))))

(function line x y
  (-> (range x y)
      (map (comp ordinal (pad-left " " 6)))
      (join " ")))

(.. str (line 0   13) "\n" (line 1000 1013)
 "\n\n" (line 13  26) "\n" (line 1013 1026)
 "\n\n" (line 250 266))