let
pa_to_string (padd:paddress) =
String
.concat
"."
(
List
.map string_of_int padd)