%newline { [ LIT2 0a -Console/write ] DEO }

|18 @Console/write

|100

#0000 #0400
&while EQU2k ?{
	DUP2 print-hex newline
	#01 SFT2 !&while }
POP2 POP2

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