let get s n = s.(n);; let set s n c = s.(n) <- c;;