Cracking the Clit (2017)

My 6502 Apple ][ FORTH based on FIG FORTH had a "Character Literal" CLIT, that saved one byte compared LIT.

With a quick google I was able to find CLIT:

https://github.com/wa1tnr/figforth-local/blob/main/fig6502.t...

  ;    CLIT pushes the next inline byte to data stack
  ;
  L35:      .BYTE $84,"CLI",$D4
            .WORD L22      ; Link to LIT
  CLIT:     .WORD *+2
            LDA (IP),Y
            PHA
            TYA
            BEQ L31        ; a forced branch into LIT

I was also able to find COLON, which is threaded code instead of assembly:

https://github.com/wa1tnr/figforth-local/blob/main/fig6502.t...

  L823:     .BYTE $C1,$BA
            .WORD L813     ; link to C!
  COLON:    .WORD DOCOL
            .WORD QEXEC
            .WORD SCSP
            .WORD CURR
            .WORD AT
            .WORD CON
            .WORD STORE
            .WORD CREAT
            .WORD RBRAC
            .WORD PSCOD

user is male, couldn't find clit in repository, would you prefer a package?