10.implement.assignment.paws

#!/usr/bin/env node ./µpaws.js -f
implementation void()

  “Provide a shortcut to `infrastructure`”
 ( infrastructure execution stage()  (infrastructure affix()
      (locals)) (infrastructure empty())                                                           )
 ( infrastructure execution stage()  (infrastructure charge()
      (locals)) (infrastructure length() (locals))                                                 )

 ( infrastructure execution stage()  (infrastructure affix() 
       ( infrastructure get() (locals) (infrastructure length() (locals)) )) ‡                     )
 ( infrastructure execution stage()  (infrastructure affix() 
       ( infrastructure get() (locals) (infrastructure length() (locals)) )) (infrastructure)      )


  “Store our routine on `locals`”
 ( ‡ execution stage()  (‡ affix() (locals)) (‡ empty())                                           )
 ( ‡ execution stage()  (‡ charge() (locals)) (‡ length() (locals))                                )

 ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) ) assign              )
 ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) ) {
   implementation void()
    ( ‡ execution stage()  (‡ affix() (locals)) (‡ empty())                                        )
    ( ‡ execution stage()  (‡ charge() (locals)) (‡ length() (locals))                             )

    ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) ) caller           )
    ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) )
         (‡ execution unstage())                                                                   )
   } )


  “Building a reusable parameters-list for the `thing` receiver”
 ( ‡ execution stage()  (‡ affix() (locals)) (‡ empty())                                           )
 ( ‡ execution stage()  (‡ charge() (locals)) (‡ length() (locals))                                )

 ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) ) parameters          )
 ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) ) (‡ empty())         )

 ( ‡ execution stage()  (‡ set() (parameters) 0) ()                                                )
 ( ‡ execution stage()  (‡ set() (parameters) 1) (assign)                                          )
 ( ‡ execution stage()  (‡ set() (parameters) 2) locals                                            )

  “Copying a reference to `assign locals` for easy access”
 ( ‡ execution stage()  (‡ affix() (locals)) (‡ empty())                                           )
 ( ‡ execution stage()  (‡ charge() (locals)) (‡ length() (locals))                                )

 ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) ) assign's.locals     )
 ( ‡ execution stage()  ( ‡ affix() (‡ get() (locals) (‡ length() (locals))) )
      ( ‡ receiver() (‡ empty()) (parameters) )                                                    )

  “Copy the relevant globals onto `assign locals`”
 ( ‡ execution stage()  (‡ affix() (assign's.locals)) (‡ empty())                                  )
 ( ‡ execution stage()  (‡ charge() (assign's.locals)) (‡ length() (assign's.locals))              )

 ( ‡ execution stage()  ( ‡ affix()
      (‡ get() (assign's.locals) (‡ length() (assign's.locals))) ) ‡                               )
 ( ‡ execution stage()  ( ‡ affix()
      (‡ get() (assign's.locals) (‡ length() (assign's.locals))) ) (infrastructure)                )

 ( ‡ execution stage()  (‡ affix() (assign's.locals)) (‡ empty())                                  )
 ( ‡ execution stage()  (‡ charge() (assign's.locals)) (‡ length() (assign's.locals))              )

 ( ‡ execution stage()  ( ‡ affix()
      (‡ get() (assign's.locals) (‡ length() (assign's.locals))) ) implementation                  )
 ( ‡ execution stage()  ( ‡ affix()
      (‡ get() (assign's.locals) (‡ length() (assign's.locals))) ) (implementation)                )