This is the solution to the super queens in lisp