haystack := ["Zig","Zag","Wally","Ronald","Bush","Krusty","Charlie","Bush","Bozo"]:
occurences := ListTools:-SearchAll(needle,haystack):
try
	#first occurence
	printf("The first occurence is at index %d\n", occurences[1]);
	#last occurence, note that StringTools:-SearchAll()retuns a list of all occurences positions
	printf("The last occurence is at index %d\n", occurences[-1]);
catch :
	print("Erros: Needle not found in the haystack"):
end try: