(define (InttoList numin) 
	(
		(if (< numin 10) 
			(list numin) 
			(list (
				list 
					(
					(truncate (/ numin 10))
					) 
					(InttoList 
						(remainder numin 10))
				) 
			)
		)
	)
)