8 lines
302 B
Text
8 lines
302 B
Text
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
|