objeto :- write('{'),atributo, write('}').
atributo :- cadena,write(':'),valor.
valor :- read(X),  (X='numero'->numero; 
                    X='cadena'->cadena;
                    X='objeto'->objeto;
                    X='arreglo'->arreglo;write(error),write(X)).

numero :- read(X),write(X).
cadena :- read(X),write('"'),write(X),write('"').
arreglo :- write('['),valor,write(']').

:- objeto.