+# you should probably download a txt dictionary of your favourite language and use that as a words.txt
+
+cd "$(readlink -e $(dirname "$0"))"
+
+WORDSTOPLAY=10
+WORDSFILE="$1"
+if [[ -z "$WORDSFILE" ]]; then
+ WORDSFILE="words.txt"
+fi
+
+export LC_ALL=C # dont do unicode stuff in egrep
+while true; do
+ sort -R "$WORDSFILE" | sed 's/\/.*//' | egrep '^[A-Za-z]{5,}$' | head -n "$WORDSTOPLAY" | tr [:upper:] [:lower:] | qt/multypo
+ echo "Press Ctrl-C to quit"
+ sleep 3
+done