;(lambda (pathname)
;  (let [(fd (posix-open pathname O_RDONLY))]
;    (let [(str (make-byte-string 4096))]
;      (let loop ()
;        (let [(size (posix-read fd str (byte-string-size str)))] 
;          (posix-write 1 str size))
;        (loop)))))
#S(#="lambda"
  #(
    0
    #="posix-open"
    #S(#="template"
      ; (lambda (fd)
      ;   (letrec [(loop (lambda ()
      ;                    (let [(size (posix-read fd str (byte-string-size str)))] 
      ;                      (posix-write 1 str size))
      ;                    (loop)))]
      ;     (loop)))
      #(
        4096
        #S(#="template"
          #(#="posix-read")
          "\x80\x81\x83\xff"  ; #(f0 f1 f3 ctx)
          2
          "\x00\x80\x29\x41\; (set! f0 (byte-string-size i1))
           \x02\x80\x80\x00\; (set! f0 (cons f0 nil))
           \x02\x80\x41\x80\; (set! f0 (cons i1 f0))
           \x02\x80\x40\x80\; (set! f0 (cons i0 f0))
           \x00\x81\x02\x42"; (set! f1 (unbox i2))
          0x01  ; g1
          0x80  ; f0
          0x81  ; f1
          0x43  ; i3
        )
        #S(#="template"
          ; (letrec [(loop (lambda ()
          ;                  (let [(size (posix-read fd str (byte-string-size str)))] 
          ;                    (posix-write 1 str size))
          ;                  (loop)))]
          ;   ...)
          #(1 #="posix-write" 0)
          "\x80\x81\x82\x40\x41"  ; #(f0 f1 f2 i0 i1)
          2
          "\x00\x81\x03\xfd\; (set! f1 (car argv))
           \x02\x80\x81\x00\; (set! f0 (cons f1 nil))
           \x02\x80\x41\x80\; (set! f0 (cons i1 f0))
           \x02\x80\x01\x80\; (set! f0 (cons g1 f0))
           \x01\x81\x81\x03\; (set! f1 (eq? f1 g3))
           \x80\x81\x00\x80\; (set! f0 (if f1 nil f0))
           \x81\x81\x43\x02"; (set! f1 (if f1 i3 g2))
          0x81  ; f1
          0x80  ; f0
          0x42  ; i2
          0x44  ; i4
        )
        0
      )
      "\xfe\xff"  ; i0=k, i1=ctx
      5
      "\x00\x80\x03\xfd\; (set! f0 (car argv))
       \x04\x81\x01\x04\; (set! f1 (make-byte-string g1 g4))
       \x00\x83\x18\x83\; (set! f3 (make-box f3))
       \x00\x82\x1b\x02\; (set! f2 (lambda g2))
       \x00\x84\x1b\x03\; (set! f4 (lambda g3))
       \x40\x83\x84\x00"; (set-box! f3 f4)
      0x82  ; f2
      0x00  ; nil
      0x40  ; i0
      0x41  ; i1
    )
  )
  #()
  2
  "\x02\x80\x01\x00\; (set! f0 (cons g1 nil))
   \x00\x81\x03\xfd\; (set! f1 (car argv))
   \x02\x80\x81\x80\; (set! f0 (cons f1 f0))
   \x00\x81\x1b\x03"; (set! f1 (lambda g3))
  0x02  ; g2
  0x80  ; f0
  0x81  ; f1
  0xff  ; ctx
)

; vim:set sw=2 expandtab syntax=: