#lang racket
(require json)
(string->jsexpr
"{\"foo\":[1,2,3],\"bar\":null,\"baz\":\"blah\"}")
(write-json '(1 2 "three" #hash((x . 1) (y . 2) (z . 3))))