excelsior-return.cql

// Download excelsior-return.cql
// PGN output when run on sample.pgn

/*****
This file finds games with an excelsior where the promoted piece
returns to its original square
********/

cql(input hhdbvi.pgn )

initial
S=
 Ea-h2  a-h7
   find ES:E