func(nth,{
  sub({
    let(a,right([x],2)):
    let(result,`th'):
    iff(right([a],1)=1,{let(result,`st')}):
    iff(right([a],1)=2,{let(result,`nd')}):
    iff(right([a],1)=3,{let(result,`rd')}):
    iff([a]-11=0,{let(result,`th')}):
    iff([a]-12=0,{let(result,`th')}):
    iff([a]-13=0,{let(result,`th')}):
    `print_[x]\'[result]':
    print_[x][result]
  })
}):

include(`../prg/vector.txt'):

print_ apply(nth,apply(unf,fill(1,25,1)))       \n\n:
print_ apply(nth,apply(unf,fill(250,265,1)))    \n\n:
print_ apply(nth,apply(unf,fill(1000,1025,1)))      :