diff --git a/pr7.cql b/pr7.cql
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..22810a644e13ba1f16c893700a39bd2abea63e4f 100644
--- a/pr7.cql
+++ b/pr7.cql
@@ -0,0 +1,9 @@
+.in
+F:3,
+G:3
+
+.out
+F x G;
+filter (\(r) -> not(isEmpty(r[2])) and not(isEmpty(r[3])) and [r[2], r[3]] == [r[4], r[5]]);
+#alternatively: filter (\(r) -> not(isEmpty(r[2])) and not(isEmpty(r[3])) and r[2]==r[4] and r[3]==r[5]);
+map (\(r) -> r[1,6]);
\ No newline at end of file