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