MUDDLE/testsp.4

   1 <SETG ENVIRON
   2   <FUNCTION ("BIND" E) .E>>
   3
   4
   5 <SET E0 <ENVIRON>>
   6
   7 <PROG ((A 100) E1)
   8    <SET E1 <ENVIRON>>
   9    <PRINT .A>
  10    <PROG ((A 10) E2)
  11       <SET E2 <ENVIRON>>
  12       <PRINT .A>
  13       <PROG ((A 1) E3)
  14          <PRINT .A>
  15          <SPLICE <ENVIRON> .E1>
  16          <PRINT .A>>
  17       <PRINT .A>>
  18    <PRINT .A>>\f\ 3\f