main :: IO ()
main = handle printException $ do
    initFreqs
    command <- parseCommand
    cleanTerm
    runApp command (\cmd -> sanitize cmd >>= quickfuzz)
    restoreTerm
main :: IO ()
main = handle printException $ do
    initFreqs
    command <- parseCommand
    cleanTerm
    runApp command (\cmd -> sanitize cmd >>= quickfuzz)
    restoreTerm
main = handle printException $ do
    initFreqs
    command <- parseCommand
    cleanTerm
    runApp command (\cmd -> sanitize cmd >>= quickfuzz)
    restoreTerm