[Haskell-beginners] Help refactor monster function