: C>F ( C -- F ) 9 5 */ 32 + ;
: F>C ( F -- C ) 32 - 5 9 */ ;

\ hulpwoorden
: .fr ( t n -- ) swap . . ;

\ opdracht
: ggd ( n m ) begin ?dup while tuck mod repeat ;
: vereenv ( t n -- t n ) 2dup ggd tuck / >r / r> ;

: c>>f ( ct cn -- ft fn )
	5 * swap 9 *
	over 32 * + swap
	vereenv	;

: f>>c ( ft fn -- ct cn )
	dup 32 * >r 9 *
	swap r> - 5 * swap
	vereenv ;

: getsign ( n -- abs(n) sign )
	dup 0< swap abs swap ;

: .Q ( ft fn d -- )
	>r

	swap getsign >r
	over /mod r> if -1 * then . backspace
	[char] . emit swap

	r> 0 ?do
		swap 10 * over
		/mod . backspace swap
	loop 2drop ;