print file in binary

import System.IO
import Numeric(showIntAtBase)
import Char(ord, intToDigit)

main :: IO ()
main = do
       output stdin

printFile :: String -> IO ()
printFile filename =
  do file <- openFile filename ReadMode
     output file

output :: Handle -> IO ()
output inh =
  do ineof <- hIsEOF inh
     if ineof
       then return ()
       else do inpChar <- hGetChar inh
               putStr $ toBin inpChar
               output inh

toBin :: Char -> String
toBin char =
  padToEight $ showIntAtBase 2 intToDigit (ord char) ""

padToEight :: String -> String
padToEight string | length string >= 8 = string
padToEight string | otherwise = padToEight $ "0" ++ string