如何使用haskell读取字符串

我不明白我如何才能让它工作，我尝试了很多方法，但这是唯一一个谁工作只是一点点！有人能给我一个主意吗

lcms :: (Integral a) => [a] -> a

parseIntList :: String -> [Int]
parseIntList s = [read x :: Int | x <- words s]

main = do
        a <- getLine --1,2,3
        let x = parseIntList a 
        print x -- [1,2,3]
        lcms  x --?

lcms:：（积分a）=>[a]->a
parseIntList:：String->[Int]
parseIntList s=[read x:：Int | x
lcms x
只是一个数值。将它直接绑定到
IO
的
do
块中，像
main
这样的操作就像要求某人“请取回邮件，然后买些牛奶，然后发射导弹，然后36”.那么，这肯定会促使回答36–什么

如果您想打印
lcms x
的结果，请说出来

main :: IO ()
main = do
    a <- getLine
    let x = parseIntList a 
    print x
    print $ lcms x

main:：IO（）
main=do
a好的，我明白了！非常感谢！我看到我有很多东西要学。。。