[ table ]                is suffix   (   n --> $ )

  $ "th st nd rd th th th th th th"
  nest$ witheach [ ' suffix put ]

  [ dup number$
    swap dup 100 mod
    10 21 within iff
      [ drop $ "th" join ]
    else
      [ 10 mod
        suffix join ] ]    is ordinal$ (   n --> $ )

  [ over - 1+
    [] swap times
      [ over i^ + ordinal$
        nested join ]
    nip  50 wrap$ ]        is test     ( n n -->   )

  0 25 test
  cr
  250 265 test
  cr
  1000 1025 test