primitive pascal triangle code in haskell