03 CONSTANT _#initial_q_digits
	 

Q numbers

q* ( r1 r2 --r3 )

q multiple

 
	: q*  ( n n q -- n )
		>R M* R> d>>a DROP 
	; 
	 

q/ ( r1 r2 --r3 )

q divide

 
	: q/ ( r1 r2 q -- r3 )
		>R SWAP S>D R> 
		d<< ROT SM/REM NIP 
	;
	 

q+ ( r1 r2 ---r2)

q +

 
	: q+ ( r1 r2 --  r3)
		+ ; inline
	 

q- ( r1 r2 ---r2)

q -

 
	: q- ( r1 r2 --  r3)
		- 
	; inline
	 

	#FLOAT [IF]
	: q. ( number q --)
		q>f FS. 
	;
	[THEN]