An html version of ramblingrook.cql
; ramblingrook.cql can be downloaded here.
;;Multiple consecutive rook checks followed by king moving to empty square; usually to avoid stalemate if rook is captured.
(match
:pgn heijden.pgn
:output out.pgn
:result 1/2
(position
:wtm
:sequence(
(position :movefrom R :moveto .)
(position :movefrom k :check)
(position :movefrom R :moveto .)
(position :movefrom k :check)
(position :movefrom R :moveto .)
(position :movefrom k :check)
(position :movefrom R :moveto .)
(position :movefrom k :check)
(position :movefrom R :moveto .)
(position :movefrom k :check))))