crypto.lib
LIB "crypto.lib"; list a = 1,5,20,6,37; find_index(a,20); ==> 3 find_index(a,6); ==> 4 find_index(a,100); ==> 0