;The excelsior theme: a pawn starts at the second rank and then promotes
(match :pgn heijden.pgn
:output out.pgn
:forany pawn [Pp]
(position
:initial
:tagmatch pawn P?2
:gappedsequence((position :movefrom $pawn :promote U))
:flipcolor)
)