diff --git a/xwords4/relay/scripts/showinplay.sh b/xwords4/relay/scripts/showinplay.sh
new file mode 100755
index 000000000..a14216964
--- /dev/null
+++ b/xwords4/relay/scripts/showinplay.sh
@@ -0,0 +1,30 @@
+#!/bin/sh
+
+set -e -u
+
+LIMIT=10000
+
+usage() {
+    echo "usage: $0 [--limit <n>]"
+}
+
+while [ $# -gt 0 ]; do
+    case $1 in
+        --limit)
+            LIMIT=$2
+            shift
+            ;;
+        *) usage
+            ;;
+    esac
+    shift
+done
+
+QUERY="WHERE NOT -NTOTAL = sum_array(nperdevice)"
+
+echo "Row count:" $(psql -t xwgames -c "select count(*) FROM games $QUERY;")
+
+echo "SELECT dead,connname,cid,room,lang,ntotal,nperdevice,nsent,ctime,mtimes "\
+     "FROM games $QUERY ORDER BY NOT dead, connname LIMIT $LIMIT;" \
+    | psql xwgames
+