(set a '(A B C))
(print "INDEX=")
(print (find a 'C))
(print "\n")
