$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>MExp.$cheme 0000000 # 001 006 \v \a n e w l i n e \a e x p 0000020 a n d * 004 l o o p 005 w r i t e \f 0000040 e x p a n d e d - e x p 003 e x p 0000060 \a d i s p l a y 003 e q ? 003 n o t 0000100 \v e x p a n d - o n c e \n e x p 0000120 r e s s i o n 021 020 I n t e r p 0000140 r e t e d C o d e 022 \0 017 023 023 001 0000160 \a 001 003 037 \b \0 001 ( 001 $ \0 025 * \a 001 0000200 022 002 \a \n \a 002 017 024 024 002 \a 003 \a \0 003 037 0000220 030 \0 002 032 \0 003 # 033 002 # 024 & \0 001 ( 0000240 002 & \0 001 001 \0 \t 017 \a 002 022 002 \a 0000260 005 \a 004 017 024 024 004 \t \a \t \a \b \a \a \a \0 0000300 \a 006 \a \0 \a \0 \a 003 \a \0 003 037 5 \0 004 032 0000320 \0 003 & \0 001 033 034 \0 001 004 003 022 3 0000340 035 002 # 036 004 024 003 # 036 005 002 # 036 006 002 # 0000360 036 \a 001 003 # 036 \b 002 # ! 001 001 001 \t 0000400 025 * 021 002 = > 036 021 005 ( e x p ) \0 021 0000420 \f ( e x p r e s s i o n ) \0 \a 001 0000440 021 002 ( ) \0 \n # 001 006 \a 004 m e x p \a 0000460 d i s p l a y 003 e x p \a n e w l 0000500 i n e \a e x p a n d * 005 p a i r 0000520 ? 004 r e a d 021 020 I n t e r p r 0000540 e t e d C o d e 022 \0 017 023 023 001 \a 0000560 \0 003 037 \b \0 001 ( 001 $ \0 025 * \a \0 022 0000600 001 \a 002 017 023 023 004 006 \a 001 \a 006 \a 005 \a 004 0000620 \a 003 \a \0 003 037 037 \0 002 032 024 003 # 033 002 & 0000640 \0 \0 034 \0 003 022 035 035 \0 003 # 036 004 002 0000660 # 036 005 \b 025 * 021 006 M E x p > 036 021 0000700 002 ( ) \0 \a \0 021 002 ( ) \0 \n 0000714