.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: distinct1
\(de	reads standard input and reports list of\& alphanumeric strings 
\(de	that dif\&f\&er only in case, giving lower-case f\&orm of\& each
tr -cs 'A-Za-z0-9' '\(rg012' | sort -u | tr 'A-Z' 'a-z' | sort | uniq -d
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
