encodeNumber :: Integer -> [Alphabet]
encodeNumber n = toBinary $ n
	where
		toBinary 0 = [Zero]
		toBinary 1 = [One]
		toBinary n
			| n `mod` 2 == 0 = Zero : toBinary (n `div` 2)
			| otherwise = One : toBinary ((n-1) `div` 2)

-- So we can see things
encodeNumber :: Integer -> [Alphabet]
encodeNumber n = toBinary $ n
	where
		toBinary 0 = [Zero]
		toBinary 1 = [One]
		toBinary n
			| n `mod` 2 == 0 = Zero : toBinary (n `div` 2)
			| otherwise = One : toBinary ((n-1) `div` 2)

-- So we can see things
encodeNumber n = toBinary $ n
	where
		toBinary 0 = [Zero]
		toBinary 1 = [One]
		toBinary n
			| n `mod` 2 == 0 = Zero : toBinary (n `div` 2)
			| otherwise = One : toBinary ((n-1) `div` 2)

-- So we can see things