showIntInBinary :: Int -> String
showIntInBinary n = showIntAtBase 2 intToDigit n ""
showIntInBinary :: Int -> String
showIntInBinary n = showIntAtBase 2 intToDigit n ""
showIntInBinary n = showIntAtBase 2 intToDigit n ""