implement Text.ToyJSON.Quote

JSON as eDSL