(defun save-lisp-and-die (me-file new-file)
  (let* ((snip-string "# IMAGE BEGINS QMGFAMRISGQJ48IWDOWPHOOGW3MLKKGSPXD4DTFIG0")
         (script (sprintf "/^%s/ { exit 0 } { print }" snip-string)))
    ;; iterating over this many lines in glotawk was suuuper slow,
    ;; let's use awk instead lol
    (system "awk" script me-file '> new-file)
    (dump-append new-file)
    (system "chmod" "+x" new-file)))

# When we build image.awk, this include is replaced with lib-eval.awk;
# see Makefile

    _symbol("or")
    _symbol("and")
    _symbol("save-lisp-and-die")