#!/bin/bash

# process standard input
while read -a line; do
    for word in ${line[@]}; do
        len=${#word}
        lengths[len]=$((${lengths[len]}+1))

        for((j=0; j<${#word};++j)); do
            letters+=${word:j:1}
        done
    done
done

echo "character statistics:"
echo $letters | fold -w 1 | sort | uniq -c | sort -rn

echo "word length statistics:"
for i in ${!lengths[*]}; do
    echo "Found ${lengths[i]} words of length $i"
done