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))))