haskell solution of disemvoweler