Add ordinal printing

[jakewilliami]

Something like

ordinal(n::Integer) =
           string(n, (11 <= mod(n, 100) <= 13) ? "th" : (["th", "st", "nd", "rd", "th"][min(mod1(n, 10) + 1, 5)]))

[jakewilliami]

Also

ordinal(n::Integer) =
           string(spelled_out(n), (11 <= mod(n, 100) <= 13) ? "th" : (["th", "st", "nd", "rd", "th"][min(mod1(n, 10) + 1, 5)]))