8 queen, ugly (haskell)