include "NSLog.incl"

local fn DoIt
  ErrorRef err = NULL

  CFStringRef jsonString = @"{ \"foo\": 1, \"bar\": [10, \"apples\"] }"
  CFDataRef      strData = fn StringData( jsonString, NSUTF8StringEncoding )
  CFTypeRef      jsonObj = fn JSONSerializationJSONObjectWithData( strData, NULL, @err )
  if err then NSLog( @"%@", fn ErrorLocalizedDescription( err ) )
  NSLog( @"%@\n", jsonObj )

  CfDictionaryRef    dict = @{ @"blue": @[@1, @2], @"ocean": @"water"}
  CFDataRef      jsonData = fn JSONSerializationDataWithJSONObject( dict, 0, @err )
  if err then NSLog( @"%@", fn ErrorLocalizedDescription( err ) )
  CFStringRef jsonString2 = fn StringWithData( jsonData, NSUTF8StringEncoding )
  NSLog( @"%@\n", jsonString2 )
end fn

fn DoIt

HandleEvents