(define (toHex dec)
	;local-function:solveHex
	(define (solveHex dec res)
		(let ((base 16))
			(cond
				[(null? dec) res]
				[(>= dec (- base 1)) (solveHex (quotient dec base) (string-append (getHex (remainder dec base)) res) )]
				[else (string-append (getHex dec) res)]
			)
		)
	)

	(solveHex dec "")
)