Intento tarea 2, Prolog

Language: Layout:

objeto :- write('{'),aux1, write('}').
aux1 :- read(X),(X='atributo'->atributo;
                 X='fin'->write('')).
atributo :-cadena, write(':'),valor,aux2.
arreglo :- write('['),aux11, write(']').
aux2 :- read(X),(X='atributo'->write(','),atributo;
                 X='fin'->write('')).
aux3 :- read(X),(X='valor'->valor,aux4;
                 X='fin'->write('')).
aux4 :- read(X),(X='valor'->write(','),valor,aux4;
                 X='fin'->write('')).
aux5 :- read(X),(X='valor'->write(','),valor,aux5;
                 X='fin'->write('')). 
aux6 :- read(X),(X='valor'->write(','),valor,aux6;
                 X='fin'->write('')).   
aux7 :- read(X),(X='valor'->write(','),valor,aux7;
                 X='fin'->write('')).
aux8 :- read(X),(X='valor'->write(','),valor,aux8;
                 X='fin'->write('')).                
aux9 :- read(X),(X='valor'->write(','),valor,aux9;
                 X='fin'->write('')).
aux10 :- read(X),(X='valor'->write(','),valor,aux10;
                 X='fin'->write('')).
aux11 :- read(X),(X='valor'->valor,aux12;
                 X='fin'->write('')).
aux12 :- read(X),(X='valor'->write(','),valor,aux12;
                 X='fin'->write('')).
cadena :- read(X),write('"'),write(X),write('"').
numero :- read(X),write(X).
valor :-read(T),(T='cadena'->cadena;
                 T='numero'->numero;
                 T='arreglo'->arreglo;
                 T='objeto'->objeto).

:- objeto.

[ - ] Show input
Absolute running time: 0.34 sec, cpu time: 0.19 sec, memory peak: 7 Mb, absolute service time: 0,39 sec