let rec string_of_string_list ls acc = match ls with | [] -> acc | hd::tl -> string_of_string_list tl acc ^ "." ^ hd