;;Find positions with at least 6 white passed pawns.
;;Another file must be created to find black passed pawns
(match :pgn mega.pgn :output out.pgn
(position
:sumrange acc0 6 8
:markall
Pd2
:piececount [pP][d3-7] 0
:piececount p[c3-7,e3-7] 0
:shift
:accumulate acc0
)
)