;; Find positions in the main line in which Black is in mate and in which ;; a black piece is pinned. (match :pgn heijden.pgn :output out.pgn (position :btm :mate :rayattack (A a k)))