Object with array, Prolog

Language: Layout:

objeto :- write('{'),aux1, write('}').
aux1 :- read(X), (X='atributo' ->atributo,aux2;
                  X='fin'->write('');
                  write('te equivocaste 1'),write(X)).
aux2 :- read(X), (X='atributo' ->write(' , '), atributo,aux2;
                  X='fin'->write('');
                  write('te equivocaste 2'),write(X)).
                  
aux3 :- read(X), (X='valor' ->valor,aux4;
                  X='fin'->write('');
                  write('te equivocaste 3'),write(X)).
aux4 :- read(X), (X='valor' ->write(' , '), valor,aux4;
                  X='fin'->write('');
                  write('te equivocaste 4'),write(X)).
atributo :- read(Nbatributo), write('"'),write(Nbatributo),write('":'), valor.
arreglo :- write('['),aux3, write(']').
valor :- read(X), (X='objeto' ->objeto; 
                  X='arreglo' ->arreglo;
                  X='cadena'->read(Cadena), write('"'),write(Cadena),write('"');
                  X='numero'->read(Numero),write(Numero);
                  write('te equivocaste 5'),write(X)).
:- objeto.

[ - ] Show input
Absolute running time: 0.3 sec, cpu time: 0.14 sec, memory peak: 7 Mb, absolute service time: 0,42 sec