问HASKELL *异常: Prelude.read:无解析(可能重复)

EN

import Data.Char (isDigit)

eval :: [Int] -> IO()
eval liste = do
    putStrLn "Please enter a positive integer or an operater ( + / - / * ): "
    input <- getLine
    let
        ord = words input
        cmd = read (head ord) :: Char
        in
            if isDigit cmd then
                let nyliste = (read [cmd] :: Int) : liste in do
                print nyliste
                eval nyliste
            else if isOperator cmd then if null liste || length liste == 1 then do
                    putStrLn "Invalid input! Start by adding at least two positive integers"
                    eval liste
                else let
                    fst = head liste
                    snd = head $ tail liste
                    in case cmd of
                        '+' -> let
                            newValue = fst + snd
                            oppliste = newValue : drop 2 liste
                            in do
                                print oppliste
                                eval oppliste
                        '-' -> let
                            newValue = fst - snd
                            oppliste = newValue : drop 2 liste
                            in do
                                print oppliste
                                eval oppliste
                        '*' -> let
                            newValue = fst * snd
                            oppliste = newValue : drop 2 liste
                            in do
                                print oppliste
                                eval oppliste
                        _ -> do
                            putStrLn "Invalid input! Start by adding at least two positive integers"
                            eval liste
            else do
                putStrLn "Invalid input! Start by adding at least two positive integers"
                eval liste


isOperator :: Char -> Bool
isOperator c = c == '*' || c == '+' || c == '-'

main :: IO()
main = eval []

[1 of 1] Compiling Main             ( test.hs, interpreted )
Ok, one module loaded.
ghci> main
Please enter a positive integer or an operater ( + / - / * ):
1
*** Exception: Prelude.read: no parse
ghci>