(import (lib json))
(import (owl parse))

(define o (parse json-parser (str-iter "
  {
    'name': 'John',
    'full name': 'John Smith',
    'age': 42,
    'married': false,
    'address': {
      'street': '21 2nd Street',
      'city': 'New York',
    },
    'additional staff': [
      {
        'type': 'numbers',
        'numbers': [ 1, 2, 3, 4 ]
      },
      {
        'type': 'phone',
        'number': '222 222-2222'
      }
    ]
  }") #f #f #f))
(print o)

(print-json-with display o)
(print-json-with display {
  'name "John"
  '|full name| "John Smith"
  'age 42
  'married #false
  'address {
    'street "21 2nd Street"
    'city   "New York"
  }
  '|additional staff| [
    {
      'type "numbers"
      'numbers [ 1 2 3 4 ]
    }
    {
      'type "phone"
      'number "222 222-2222"
    }
  ]