setenv let 'define severity $ABORT ; abort $FATAL ;
    define tmp 2sec.$PID\.$CNUM ; define var $1 ; shift ;
    speakp $tmp ; "$ARGV" ; define status $STATUS ; speakx ;
    readenv $var $tmp ; delete $tmp ; abort $severity ; leave $status'

eval "$let" ver vesion ;
if ( eq ( string $ver ) \\beta.5 )
    setenv fwd     'forward'
    setenv forward 'forward'
else
    setenv fwd     'fwd'
    setenv forward 'fwd'
endif

setenv speak   'speak -'
setenv speakx  'speak -x'
setenv speaka  'speak -a'
setenv speakp  'speak -p'
setenv speakpa 'speak -pa'
setenv claim   'claim -'
setenv claimx  'claim -x'
setenv claima  'claim -a'
setenv claimp  'claim -p'
setenv claimpa 'claim -pa'
setenv echo    'echo -'
setenv echon   'echo -n'
setenv echoc   'echo -c'
setenv echocn  'echo -cn'
setenv expr    'expr -'
setenv exprn   'expr -n'
setenv exprc   'expr -c'
setenv exprcn  'expr -cn'
setenv listen  'listen -'
setenv listenx '-x'
setenv eval    'eval -'
setenv evalx   'eval -x'
setenv readvar 'readvar'
setenv rmaco   'readvar'
setenv readenv 'readenv'
