Maiden project in haskell