haskell queen attack