haskell | Upit