1{	n = length
2	d = 0
3	for (i = 1; i <= n; i++)
4		if ((k = index($0, substr($0, i))) != i) {
5			d = 1
6			break;
7		}
8	if (d)
9		print $0, "has duplicate letters"
10}
11