wrote a Gauche #Scheme script to query a #mastodon instance blocklist and save it out to an importable file

(define (blocks domain)
(json-link #"https://~|domain|/api/v1/instance/domain_blocks"))

(define (blocklist domain file)
(call-with-output-file file
(lambda (out)
(for-each (lambda (block)
(write-string (cdr (assoc "domain" block)) out)
(newline out))
(vector->list (blocks domain))))))