complete p002 in haskell