main :: IO ()
main = getArgs >>= maybe usage aux . parseArgs
  where aux (Args a b False) = asciiToBinary a b
        aux (Args a b True) = projectBinaryFields ["x","y","z"] a b
main :: IO ()
main = getArgs >>= maybe usage aux . parseArgs
  where aux (Args a b False) = asciiToBinary a b
        aux (Args a b True) = projectBinaryFields ["x","y","z"] a b
main = getArgs >>= maybe usage aux . parseArgs
  where aux (Args a b False) = asciiToBinary a b
        aux (Args a b True) = projectBinaryFields ["x","y","z"] a b