;
; Script Omnimark para modificar o DTD dos Arqueositios
; Versão 0.1 - jcr - 27.02.98
;

DOWN-TRANSLATE

GLOBAL SWITCH first

DOCUMENT-START
  SET first TO TRUE

ELEMENT arqueo
  OUTPUT "<arqsits>%n%c%n</arqsits>"

ELEMENT tipo
  DO WHEN first
    OUTPUT "<arqelem>%n<%q>%c%n"
    SET first TO FALSE
  ELSE
    OUTPUT "</arqelem>%n%n<arqelem>%n<%q>%c%n"
  DONE

ELEMENT #IMPLIED
  OUTPUT "<%q>%c</%q>%n"