8 queen working but ugly (haskell)