               as the first element.
 
     Returns:
-        The exit code indicating the daemon overall execution status.
+        The exit code indicating the daemon overall termination status.
     " [args]
 
     (let [port-number (nth args 0)]

    (:import [java.net Inet6Address])
)

;##
; Performs DNS lookup action for the given hostname,
; i.e. (in this case) IP address retrieval by hostname.
;
; Args:
;     hostname: The effective hostname to look up for.
;
; Returns:
;     The list containing IP address of the analyzing host/service
;     and corresponding IP version (family) used to look up in DNS:
;     "4" for IPv4-only hosts, "6" for IPv6-capable hosts.
;
(defn dns-lookup [hostname]
    ; Trying to get an A record (IPv4) for the host or its AAAA record (IPv6).
    (try
        (let [hostent (InetAddress/getByName hostname)]

        req: The incoming HTTP request object.

    Returns:
        The HTTP status code, response headers, and a body of the response.
    " [req]

    (let [mtd (get req :request-method)]
