 the program properly, by verifying error messages -}
end :: Either TeafreeError () -> IO ()
end (Left e) = putStrLn (getErrorMsg e) >> exitFailure
end (
end :: Either TeafreeError () -> IO ()
end (Left e) = putStrLn (getErrorMsg e) >> exitFailure
end (Left e) = putStrLn (getErrorMsg e) >> exitFailure