無駄にconsしてる気がしたので書き直したら、letの入れ子がすごいことになった 14重ネストw これが改良と言えるかどうかは微妙。よい子のみんなはマネしちゃいけないレベル cross-checkで最初の要素（自分のレベル）は他にヒットしないのは明らかなので、次…

(define (queens) (let ((q1 (amb 1 2 3 4 5 6 7 8)) (q2 (amb 1 2 3 4 5 6 7 8)) (q3 (amb 1 2 3 4 5 6 7 8)) (q4 (amb 1 2 3 4 5 6 7 8)) (q5 (amb 1 2 3 4 5 6 7 8)) (q6 (amb 1 2 3 4 5 6 7 8)) (q7 (amb 1 2 3 4 5 6 7 8)) (q8 (amb 1 2 3 4 5 6 7 8)))…