initialise-binding scope
  (collateral
     (bind
        ("x",
         allocate-variable
           (integers)),
      map
        ( ),
      map
        ( ),
      map
        ( ),
      map
        ( )),
   sequential
     (assign
        (bound "x",
         int-mul
           (decimal-natural
              ("10"),
            decimal-natural
              ("10"))),
      print assigned
        (bound
           ("x")),
      scope
        (collateral
           (bind
              ("x",
               allocate-variable
                 (integers)),
            bind
              ("y",
               allocate-variable
                 (integers)),
            map
              ( ),
            map
              ( ),
            map
              ( )),
         sequential
           (assign
              (bound "x",
               decimal-natural
                 ("10")),
            assign
              (bound "y",
               int-mul
                 (assigned
                    (bound
                       ("x")),
                  assigned
                    (bound
                       ("x")))),
            print assigned
              (bound
                 ("x")),
            print assigned
              (bound
                 ("y")))),
      print assigned
        (bound
           ("x"))))