( The Fibonacci Sequence 
	A series of numbers where the next number is made of the two numbers before it )

%HALT { #010f DEO }
%EMIT { #18 DEO }
%PRINT { DUP2 ,print JSR #0a EMIT }

|0100 ( -> )

	#0000 INC2k ADD2k 
	&loop 
		PRINT ADD2k LTH2k ,&loop JCN
	HALT

BRK

@print ( short* -- )

	&short ( short* -- ) SWP ,&byte JSR
	&byte ( byte -- ) DUP #04 SFT ,&char JSR
	&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD EMIT

JMP2r