gto.lisp

(import lua/basic)
(import lua/string)
(import lua/io)

(let* [(bytecode (lua/string/dump (call lua/basic/_G :loadstring (lua/io/read "*all"))))
       (i 1)
       (read-string (lambda (len)
            (let* [(i' (+ i len))
                   (res (self bytecode :sub i (- i' 1)))]
                (set! i i')
                res)))]

    (print! (= (read-string 3) "\x1BLJ")))