I got accepted - haskell | Upit