%newline { [ LIT2 0a -Console/write ] DEO }
%MOD ( a b -- a%b ) { DIVk MUL SUB }

|18 @Console/write

|100

#00
&do-while
    INC DUP print-hex/byte newline
    DUP #06 MOD ?&do-while
POP

BRK

@print-hex ( short* -- )
    SWP /byte
    &byte ( byte -- )
        DUP #04 SFT /nibble
    &nibble ( byte -- )
        #0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
    JMP2r