let formatE k = string_of_int (lin (List.nth lcase k))