let set_items st name items =
let i = get_index st name in
let script = st.scripts.(i) in
let contents = List.rev_append items script.contents in
let set_items st name items =
let i = get_index st name in
let script = st.scripts.(i) in
let contents = List.rev_append items script.contents in