` Ordinal
` www.scriptol.org

`Generate the ordinal suffix of a number



array suffix = {"th", "st", "nd", "rd"}

text ordinal(int num)

    num = num mod 100
    if (num > 9) and (num < 20)
        num = 0
    else
        num mod 10
        if num > 3 let num = 0
      /if
      
    dyn d
    d =  suffix[num]

return d.toText()



for int i in 0 .. 20
    print i, ordinal(i)
/for