6 (require "blacklist.rkt")
8 (define engine (string->url
9 "https://search.trom.tf/search?q=facebook&format=json"))
10 (define response (get-pure-port engine))
11 (define json-raw (port->string response))
12 (close-input-port response)
15 (with-input-from-string
20 ; Convert results to net/url format
22 (define result-url (string->url (hash-ref i 'url)))
23 (unless (member (url-host result-url) blacklist)
24 (writeln (url-host result-url))))
25 (hash-ref json 'results))