delete database chesmtest;
create database chesmtest;
open database chesmtest;

let chess1 = [const chessgame value ((
("Event" "Test der Chessgame Klasse")
("Site" "...")
("Date" "2006.12.08")
("White" "Mirko D.")
("Black" "somebody else")
("WhiteElo" "100")
("BlackElo" "2500")
("EventDate" "2006.12.07"))
(
("Pawn" "none" "c" 2 "c" 4 FALSE "c4")
("pawn" "none" "c" 7 "c" 5 FALSE "c5")
("Pawn" "none" "d" 2 "d" 3 FALSE "d3")
("pawn" "none" "d" 7 "d" 6 FALSE "d6")
("Knight" "none" "b" 1 "c" 3 FALSE "Nc3")
("bishop" "none" "c" 8 "f" 5 FALSE "Bf5")
("Pawn" "none" "e" 2 "e" 4 FALSE "e4")
("bishop" "Pawn" "f" 5 "e" 4 FALSE "Bxe4")
("Knight" "bishop" "c" 3 "e" 4 FALSE "Nxe4")
("pawn" "none" "g" 7 "g" 6 FALSE "g6")
("Bishop" "none" "c" 1 "e" 3 FALSE "Be3")
("pawn" "none" "h" 7 "h" 5 FALSE "h5")
("Queen" "none" "d" 1 "d" 2 FALSE "Qd2")
("queen" "none" "d" 8 "d" 7 FALSE "Qd7")
("King" "none" "e" 1 "c" 1 FALSE "O-O-O")
("knight" "none" "b" 8 "a" 6 FALSE "Na6")
("Knight" "none" "g" 1 "h" 3 FALSE "Nh3")
("pawn" "none" "b" 7 "b" 6 FALSE "b6")
("Knight" "none" "e" 4 "g" 5 FALSE "Neg5")
("queen" "Knight" "d" 7 "h" 3 FALSE "Qxh3")
("Pawn" "queen" "g" 2 "h" 3 FALSE "gxh3")
("pawn" "none" "h" 5 "h" 4 FALSE "h4")
("Bishop" "pawn" "e" 3 "c" 5 FALSE "Bxc5")
("pawn" "none" "b" 6 "b" 5 FALSE "b5")
("Bishop" "pawn" "c" 5 "d" 6 FALSE "Bxd6")
("pawn" "none" "b" 5 "b" 4 FALSE "b4")
("Pawn" "none" "c" 4 "c" 5 FALSE "c5")
("pawn" "none" "b" 4 "b" 3 FALSE "b3")
("Pawn" "none" "c" 5 "c" 6 FALSE "c6")
("pawn" "none" "f" 7 "f" 6 FALSE "f6")
("Pawn" "none" "c" 6 "c" 7 FALSE "c7")
("pawn" "none" "f" 6 "f" 5 FALSE "f5")
("Pawn" "none" "c" 7 "c" 8 TRUE "c8=Q+")
))];

let chessrel = (chess1 movingpoints consume);

#query chessrel feed filter [.Piece = "Queen"] extend [Queen: .Route] project [Queen] consume;
#query chessrel feed filter [.Piece = "King"] extend [King: .Route] project [King] consume;
#query chessrel feed filter [.Piece = "Bishop"] extend [Bishop: .Route] project [Bishop] consume;
#query chessrel feed filter [.Piece = "Knight"] extend [Knight: .Route] project [Knight] consume;
#query chessrel feed filter [.Piece = "Rook"] extend [Rook: .Route] project [Rook] consume;
#query chessrel feed filter [.Piece = "Pawn"] extend [Pawn: .Route] project [Pawn] consume;
#query chessrel feed filter [.Piece = "queen"] extend [queen: .Route] project [queen] consume;
#query chessrel feed filter [.Piece = "king"] extend [king: .Route] project [king] consume;
#query chessrel feed filter [.Piece = "bishop"] extend [bishop: .Route] project [bishop] consume;
#query chessrel feed filter [.Piece = "knight"] extend [knight: .Route] project [knight] consume;
#query chessrel feed filter [.Piece = "rook"] extend [rook: .Route] project [rook] consume;
#query chessrel feed filter [.Piece = "panw"] extend [panw: .Route] project [panw] consume;