method
content =
List
.sort
Pervasives
.compare
(
M
.elements (
M
.storable_get_multiclip st_clip))