import json  # Get the JSON package
link ximage  # Used to display internal structures

procedure main(A)
   write(ximage(j := jtou(A[1])))  # JSON -> Unicon datatype
   write(s := utoj(j))             # Unicon datatype -> JSON...
   write(ximage(jtou(s)))          # ...and back again as as check
end