Oh my god haskell why?