let
indexOf (x:
'
a) (l:
'
a list) : (int option) = indexSuchThat ((=)x) l