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