: IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
' 2dup , ' find , ' dup , ' JZ: , here 16 + , ' , , ' 2drop , ' ; ,
' drop , ' LIT , ' LIT , ' , , 16720 , ' , , ' ; ,
: IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
' 2dup , ' find , ' dup , ' JZ: , here 16 + , ' , , ' 2drop , ' ; ,
' drop , ' LIT , ' LIT , ' , , 16720 , ' , , ' ; ,