Add p1 Haskell solution