#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# 25apr13abu

(load "@lib/misc.l" "@lib/http.l")

(client "dict.leo.org" 80 (pack "?search=" (glue "+" (argv)))
   (out NIL
      (while
         (and
            (from
               "<td class=\"text\" lang=\"de\">"
               "<h2>Weitere Treffer</h2>" )
            (<> @ "<h2>Weitere Treffer</h2>") )
         (prinl
            (make
               (link (till "^J<" T))
               (while (and (till ">" T) (<> @ "</td"))
                  (char)
                  (link (till "^J<" T)) ) ) ) ) ) )

(bye)

# vi:et:ts=3:sw=3