8 queen broken, unfinished (haskell)