$ clisp

<...snip...>

[1]> (load "translate.l")
;; Loading file translate.l ...
;; Loaded file translate.l
T
[2]> (translate 'one 'french)
UN
[3]> (translate 'two 'german)
ZWEI
[4]> (translate 'trois 'english)
THREE
[5]> (translate 'quatre 'german)
FIER
[6]> (translate 'fuenf 'english)
FIVE
[7]> (translate 'eins 'french)
UN
[8]> (bye)
Bye.