#!/bin/sh

myOPT="cat"
for i
 do
  if [ "$i" = "-c" ]
   then
    myOPT="sort -k 2n"
  fi
 done

LN=0

tr '[A-Z]' '[a-z]' | \
tr -d ":;,&\$%@^[]?_#{}|().+-/*=<>!\t\'\"\\1234567890\`^" \
| while N=`line`
 do
  LN=`expr $LN + 1`
  for i in $N
   do
    echo "WT$i=\"$i\";WC$i=0" >> INIT
    echo "WC$i=\`expr \$WC$i + 1\`" >> COUNT
    echo "WL$i=\"\$WL$i $LN\"" >> LIST
    echo "echo \"\$WT$i \$WC$i \$WL$i\"" >> PRINT
   done
 done

cat INIT COUNT LIST PRINT | sh | sort -u | $myOPT


rm INIT COUNT LIST PRINT