let print_value_list value_list =
let s = ref "[" in
let n = List.length value_list in
for i = 0 to n - 1 do
let current = List.nth value_list i in
s := if i + 1 < n then !s ^ string_of_value current ^ "; "
else !s ^ string_of_value current ^ "]"
done;
print_endline !s