haskell queen-attack