Eiffel  - 
Icon  - 
PL/I  or  PL/C  -
Forth
Modula2 or  Modula3 
ML
Haskell
I-Setl
Smalltalk  

write a translator mini-Language Core