Create natToBin.hs