~ (cat labels.e elf.e transform.e execution.e \
~  echo 131072 read-to-buffer; \
~  cat core.e core-plus.e linux.e output.e \
~      amd64.e execution-support.e log-load.e; \
~  echo pyrzqxgl; \
~  cat evoke.e) \
~     | ./quine > evoke && chmod 755 evoke && ./evoke

s" source-to-precompile" variable

~ : fooze 4 . ; fooze
1024 read-to-buffer
here @
dup L!' docol-codeword-value
:rsi pack-pushcontrol
8 :rax add-reg64-imm8
:rax :rsi mov-reg64-reg64
pack-next
8 packalign
here !

: docol
  [ here @
    L@' docol-codeword-value :rax mov-reg64-imm64
    :rax push-reg64
    here ! ] ;asm

: exit
  [ here @
    :rsi pack-popcontrol
    here ! ] ;asm

: foo 1 2 + ;
0 sys-exit
pyrzqxgl
s" source-to-copy-to-log" variable

~ (output memory start, current output point
~  -- output memory start, current output point)

~ (output memory start, current output point
~  -- output memory start, current output point)
~
~ Everything directly called by all-contents has this same interface.
~
: all-contents
  0x08000000 L!' origin
  elf-file-header
  elf-program-header
  output-cold-start
  source-to-copy-to-log output-warm-start
  source-to-precompile label-transform
  0 L!' final-word-name
  current-offset L!' total-size
  0 L!' :
  0 L!' ;
  0 L!' ;asm
  ;

' all-contents entry-to-execution-token label-loop
swap sys-write bye