#lang racket/base
(require "json-grammar.rkt")
(require "json-lexer.rkt")

(syntax->datum 
 (parse
  (tokenize (open-input-string #<<EOF
[
 {"thread": "0000000000031e50", "timestamp": 1358008026, "date_relative": "35 mins. ago", "matched": 1, "total": 1, "authors": "Debian Bug Tracking System", "subject": "Processed: tagging as pending bugs that are closed by packages in NEW", "tags": ["inbox", "inbox::debian", "unread"]},
 {"thread": "0000000000031e55", "timestamp": 1358006945, "date_relative": "53 mins. ago", "matched": 1, "total": 1, "authors": "Debian Bug Tracking System", "subject": "Processed: bug 697993 is forwarded to http://rt.cpan.org/Public/Bug/Display.html?id=82660", "tags": ["inbox", "inbox::debian", "unread"]}]
EOF
))))