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