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