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