! ascii has the misleading LETTER? for upper?
: priority ( ch -- priority ) dup LETTER? [ CHAR: A - 27 + ] [ CHAR: a - 1 + ] if ;