let
sof_list strategy l =
let
ra = screate strategy (
List
.length l)
in
of_list_aux ra.ar 0 l;
ra