move(X,Y) :- numlist(1,X,S), member(Y,S), X > Y, X =< 2 * Y. win(X) :- X=:=2. win(X) :- move(X,Y), not(win(Y)).
IPiece
Iterator
IPiece[][]