- { edition sortify 's := edition 't :=
- ""
- "10th" "tenth" "9th" "ninth" "8th" "eighth" "7th" "seventh" "6th" "sixth"
- "5th" "fifth" "4th" "fourth" "3rd" "third" "2nd" "second" "1st" "first"
- "Rev." "revised" "Abr." "abridged"
- {duplicate$ empty$ { pop$ #0 }{ #1 } if$ }{ s = { 't := }{ pop$ } if$ }
- while$
- t "\ ed." *