fun binary
		(0, b)	=	implode ` map (fn x = if int x then chr (x + 48) else x) b
	|	(n, b)	=	binary (n div 2, n mod 2 :: b)
	|	n	=	binary (n, [])
;