#!/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
 

IyEvYmluL2Jhc2gKCiMgcHJvY2VzcyBzdGFuZGFyZCBpbnB1dAp3aGlsZSByZWFkIC1hIGxpbmU7IGRvCiAgICBmb3Igd29yZCBpbiAke2xpbmVbQF19OyBkbwogICAgICAgIGxlbj0keyN3b3JkfQogICAgICAgIGxlbmd0aHNbbGVuXT0kKCgke2xlbmd0aHNbbGVuXX0rMSkpCgogICAgICAgIGZvcigoaj0wOyBqPCR7I3dvcmR9OysraikpOyBkbwogICAgICAgICAgICBsZXR0ZXJzKz0ke3dvcmQ6ajoxfQogICAgICAgIGRvbmUKICAgIGRvbmUKZG9uZQoKZWNobyAiY2hhcmFjdGVyIHN0YXRpc3RpY3M6IgplY2hvICRsZXR0ZXJzIHwgZm9sZCAtdyAxIHwgc29ydCB8IHVuaXEgLWMgfCBzb3J0IC1ybgoKZWNobyAid29yZCBsZW5ndGggc3RhdGlzdGljczoiCmZvciBpIGluICR7IWxlbmd0aHNbKl19OyBkbwogICAgZWNobyAiRm91bmQgJHtsZW5ndGhzW2ldfSB3b3JkcyBvZiBsZW5ndGggJGkiCmRvbmUK

YQljCWUJbglvCXAKYQljCWUJCW8JcAphCWMJZQkJbwkKCWMJZQoJYwllCgkJZQoKc2F0ICAgICAgIHNvICAgICAgIGRpdmUKc2l0ICAgICAgIGRvICAgICAgIHNlZWsKZGlnICAgICAgICAgICAgICAgIHBvbGUKcGlnICAgICAgICAgICAgICAgIGxvdmUKbG9nCmJvbw==

a	c	e	n	o	p
a	c	e		o	p
a	c	e		o	
	c	e
	c	e
		e

sat       so       dive
sit       do       seek
dig                pole
pig                love
log
boo