# Pastebin SZBPO2OO
$ pil +
: (load '@lib/json.l)
-> printJson
: (out 'test.json (prinl "{\"a\": 1, \"b\": 2}"))
-> "{\"a\": 1, \"b\": 2}"
: (in 'test.json (echo))
{"a": 1, "b": 2}
-> T
: (setq J1 (in 'test.json (readJson)))
-> (("a" . 1) ("b" . 2))
: (setq J2 (parseJson "{\"a\": 1, \"b\": 2}"))
-> (("a" . 1) ("b" . 2))
: (setq J3 '(("a" . 1) ("b" . 2)))
-> (("a" . 1) ("b" . 2))
: (get J1 "a")
-> NIL
: (get J2 "a")
-> NIL
: (get J3 "a")
-> 1
: (= J1 J2 J3)
-> T
: (show 'J1)
J1 (("a" . 1) ("b" . 2))
-> J1
: (show 'J2)
J2 (("a" . 1) ("b" . 2))
-> J2
: (show 'J3)
J3 (("a" . 1) ("b" . 2))
-> J3
: (get J1 1)
-> ("a" . 1)
: (get J1 1 1)
-> "a"
: (get J2 1 1)
-> "a"
: (get J3 1 1)
-> "a"