I was looking at the Algol 60 code while looking at use of the tool phases, and found this  (prefix bd: &quot;bd-tool.ss&quot;)).<br><br>What surprised me was that is pointed to this:<br><br><br>#lang s-exp framework/private/decode<br>
bVTbjtsgEP2VqatIdlWyadSLtFIv6lOf+wErgZkYthi8gJPN33cAO3GyfonjM2fOXDi49vgy<br>ao9QGy2g6j3KbQhV+Vc1E9waHkLCZ2C0Oi7fo3Om5EkfWoU9Vg3FJB60RfBOiDMTkp9/Eh8j<br>1LWEOmDrrAzsh+SR6rej92gjm+CmSQLcEvE7CRGF9c5GBbKBb80VJNEE7Qt/Kih0x0Rf0m+K<br>
9/wfMieesY1Eij0fNlCLURvJBk7ideuMoaB2tgAVN50zX3c0aSXk9nnoqptKRsdocL0YTfqB<br>Rk2x1boPaQeUNHXbYWQnLaNq4HOzGlWoOxVTOHfQruky2W5A9JmR84kWKDe03CDstvsv+WcR<br>lZ6fWEmei+1gd5c+xd8fmll88O6oJUI6+l+XhbDkjIJBrfvB+QizJR4T/ERUfH2LswKGp+tu<br>
B8UDfoKj0/IO3N+BZQ8WT7k8O3je4wbCOKDfECvbd3qlrqxCT02mjYoxxnzUFk2aOFGYtiFy<br>G3W25dJVmZwErvGCbdI1uBhhRdjwnkyRrJYl8BibxU1YnqLU3LhuA9UfPgxn+K19VGSnj/A3<br>WetdlY4g9bTM6TEE3tHE0/HJu/jc5J3mRVIuGgS8nDwE5U65HtQvo0vbEM5L9AtzTZxYLkWI<br>
ZzLZTJZIE6Jsmit/ZTet4rZD1iq6hPQBuLaS9kafgjDv3UxCJ0Wsm4t2MRKpP+BrpEqP5bHw<br>A6x6JG/zPw==<br><br><br>which gets deflated and unencoded into a module, (AFAICT) via; <br><br>#lang scheme/base<br>(require (for-syntax scheme/base file/gunzip net/base64))<br>
(provide (except-out (all-from-out scheme/base) #%module-begin)<br>         (rename-out [module-begin #%module-begin]))<br><br>(define-syntax (module-begin stx)<br>  (syntax-case stx ()<br>    [(_ x ...)<br>     (andmap (lambda (x) (or (identifier? x) (integer? (syntax-e x))))<br>
             (syntax-&gt;list #&#39;(x ...)))<br>     (let* ([data  (format &quot;~a&quot; (syntax-&gt;datum #&#39;(x ...)))]<br>            [data  (substring data 1 (sub1 (string-length data)))]<br>            [data  (string-&gt;bytes/utf-8 data)]<br>
            [in    (open-input-bytes (base64-decode data))]<br>            [out   (open-output-string)]<br>            [out   (begin (inflate in out) (get-output-string out))]<br>            [exprs (read (open-input-string (string-append &quot;(&quot; out &quot;)&quot;)))]<br>
            [exprs (datum-&gt;syntax stx exprs stx)])<br>       #`(#%module-begin #,@exprs))]))<br><br><br>Why is this done?<br><br>Cheers, <br><br>Stephen<br><br><br><br clear="all"><br>-- <br><br>--<br>Stephen De Gabrielle<br>
<a href="mailto:stephen.degabrielle@acm.org">stephen.degabrielle@acm.org</a><br>Telephone +44 (0)20 85670911<br>Mobile        +44 (0)79 85189045<br><a href="http://www.degabrielle.name/stephen">http://www.degabrielle.name/stephen</a><br>
<br>