// Keep all legal moves except the e Pawn's double move
set lglmvs ();
for v $legalmoves:
if != #v "P e2-e4":
push lglmvs #v;
endif;
next;
setsystem legalmoves #lglmvs;
With the fix I made to unless, described here, this can all be done with one line:
With the fix I made to unless, described here, this can all be done with one line: