let merge_alists alists1 alists2 =
let (string_alist1, int_alist1, float_alist1, bool_alist1, list_alist1) =
alists1 in
let (string_alist2, int_alist2, float_alist2, bool_alist2, list_alist2) =
alists2 in
(string_alist1 @ string_alist2,
int_alist1 @ int_alist2,
float_alist1 @ float_alist2,
bool_alist1 @ bool_alist2,
list_alist1 @ list_alist2)