#!/bin/bash

WORD=/usr/share/dict/words
DIFF=$[RANDOM]
if [ -n "$2" ]; then
    KEYS=1
else
    KEYS=0
fi

word() {
    perl -e 'srand; rand($.) < 1 && ($line = $_) while <>; print $line;' \
        $WORD | tr -d \\n
}

for x in $(jot $1 2>/dev/null || seq $1); do
    case $KEYS in
        0) echo $[RANDOM-DIFF];;
        1) echo -n "$[RANDOM-DIFF] "; word; echo;;
    esac
done
