Forth extenstion 4TH in upper-case