|0100
    LIT2r 0000 main POP2r BRK

%putchar ( -- ) {
	#18 DEO }

@main ( -- )
    OVR2r LIT2r 0004 SUB2r 
    #007a STH2kr ( #0000 ADD2 ) STA2
    #0020 STH2kr #0002 ADD2 STA2
    STH2kr ( #0000 ADD2 ) LDA2 STH2kr #0002 ADD2 LDA2 SUB2 putchar
    
    &return
       POP2r JMP2r