p;:&nbsp;string&nbsp;array;
&nbsp;&nbsp;&nbsp;&nbsp;p_proto&nbsp;:&nbsp;int;
&nbsp;&nbsp;}
&nbsp;&nbsp;type&nbsp;service_entry&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;Unix.service_entry&nbsp;=&nbsp;{
&nbsp;&nbsp;&nbsp;&nbsp;s_name&nbsp;:&nbsp;string;
&nbsp;&nbsp;&nbsp;&nbsp;s_aliases&nbsp;:&nbsp;string&nbsp;array;
&nbsp;&nbsp;&nbsp;&nbsp;s_port&nbsp;:&nbsp;int;
&nbsp;&nbsp;&nbsp;&nbsp;s_proto&nbsp;:&nbsp;string;
&nbsp;&nbsp;}
&nbsp;&nbsp;val&nbsp;gethostname&nbsp;:&nbsp;unit&nbsp;-&gt;&nbsp;string
&nbsp;&nbsp;val&nb