(SETQ $SHOWTIIME T $LLOADPRINT NIL $DERIVABBREV T $OOPTIONSET T $DYNAMALLOC T 
 $PPFEFORMAT T $CURSOR '&<-->)
(MSETQ $PAGEPAUSE NIL)
(SETQ $DERIVSUBST NIL $RADEXPAND '$ALL)
(MDEFPROP $RPEXPAND
 ((LAMBDA) ((MLIST)) ((MPROGN) (($RATVARS) $L) (($RATWEIGHT) $L 1.) ((MSETQ) $RATWTLVL 2.))) MEXPR) 
(ARGS (QUOTE $RPEXPAND) (QUOTE (NIL . 0.)))