(let ((do-sth (prepare *db* #<<END
					   "SELECT domains.name, domains.status, domains.ttl, domains.client_hold,
					   host_domain_links.id,
					   hosts.name, hosts.ipv4, hosts.ipv4,
					   forwardings.url
					   FROM domains
					   LEFT JOIN forwardings ON forwardings.domain_id = domains.id
					   LEFT JOIN host_domain_links ON host_domain_links.domain_id = domains.id
					   LEFT JOIN hosts on host_domain_links.host_id = hosts.id
					   WHERE domains.name LIKE '%.la';"
					   END)))