let formatS k = string_of_IntArray (dcaseKInt (List.nth lcase k)) 63