impl queens.hs