5 . word ' here define word word find , word find find , word ; find , word : here define ' word , ' here , ' define , ' ; , : IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; , ' find , ' dup , ' JZ: , here 12 + , ' , , ' ; , : i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; , : e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; , : TEST \i DUP + DUP + . ; \e 5 TEST 2 .