ghci> :set +m
ghci> let pascal 1 = [1]
ghci|     pascal n = zipWith (+) (0:pascal (n-1)) (pascal (n-1) ++ [0])
ghci|

ghci> pascal 3
[1,2,1]
ghci> pascal 4
[1,3,3,1]
ghci> pascal 5
[1,4,6,4,1]
ghci> pascal 6
[1,5,10,10,5,1]