still not working.. oh haskell