primitive pascal triangle code in haskell

pascal.hs

reduce :: [Int] -> [Int]
reduce (x:rest@(y:z)) = (x + y) : (reduce rest)
reduce _ = []

pascal :: Int -> [Int]
pascal 1 = [1]
pascal 2 = [1,1]
pascal x = [1] ++ reduce (pascal (x - 1)) ++ [1]

main = do
    putStrLn $ show $ pascal 1
    putStrLn $ show $ pascal 2
    putStrLn $ show $ pascal 3
    putStrLn $ show $ pascal 4
    putStrLn $ show $ pascal 5
    putStrLn $ show $ pascal 6
    putStrLn $ show $ pascal 7