RosettaCodeData/Task/DNS-query/PicoLisp/dns-query.l

5 lines
103 B
Common Lisp

(make
(in '(host "www.kame.net")
(while (from "address ")
(link (till "^J" T)) ) ) )