let
fqdn () = (
Unix
.gethostbyname (
Unix
.gethostname ())).
Unix
.h_name