(de url ()
   (catch 'found
      (in '(curl "-s" "https://nest.pijul.com/tankf33der/nestping")
         (while (from "<a class=\"file text-dark\" href=\"/tankf33der/nestping:main/")
            (let Adr (till "\">")
               (char)
               (char)
               (let File (till "<" T)
                  (when (= "STATUS" File)
                     (throw 'found (pack Adr)) ) ) ) ) ) ) )
(de found? ()
   (let? U (url)
      (let URL (pack "https://nest.pijul.com/tankf33der/nestping:main/" U)
         (in (list "curl" "-s" URL)
            (and (from "0xdeadbeef")) ) ) ) )

   (let (Now (bool (found?))  Was (rc DB 'https))

   (let
      (Now
         (call
            'http
            '--quiet
            '--follow
            '--check-status "https://nest.pijul.com/tankf33der/nestping:main/SANLDXIK76PNA.BEAAA" )
         Was (rc DB 'https))