-#!/bin/sh
+#!/bin/bash
# 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
-sort -R dict.txt | egrep '^[A-Za-z]{5,}$' | head -n $WORDSTOPLAY | tr [:upper:] [:lower:] | qt/multypo
+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