import Prelude;

public set[list[int]] Nqueens(int n){
	cols = upTill(n);
	result = {};
	for (vector <- permutations(cols)){
		if (n == size({vector[j] + j |j <- cols}) && n == size({vector[j] - j |j <- cols}))
			result += vector;}
	return result;
}