anchor.diff:           (format stream "~A" questao)
            (print-tabs (* (length (aref *respostas-questoes* n-questao))
                           (length *grupos-comvest*))))
  -    (terpri)
  +    (terpri stream)
       ;; Linha 2
       (print-tabs 1)
       (print-tabs (length *grupos-comvest*))
  
positive.code:                   (dotimes (n-grupo (length *grupos-comvest*))
                      (dado (aref *dados-coletados* (+ n-curso n-cidade)
                                  n-questao n-grupo n-resposta)))))
                (terpri)))
      (terpri)
      (loop for (abrev . grupo) in *grupos-comvest* do
           (format t "~A = ~A dos ~A~%" (subseq grupo 0 2)
                   (ecase tipo
                     (:porcentagem "Porcentagem")
                     (:numero "Número total"))
  
negative.code:          (dolist (resposta (aref *respostas-questoes* n-questao))
             (format stream "~A" resposta)
             (print-tabs (length *grupos-comvest*))))
      (terpri stream)
      ;; Linha 3
      (print-tabs 1)
      (flet ((print-grupos ()
               (loop for (abrev . grupo) in *grupos-comvest* do
                    (format stream "~A" (subseq grupo 0 2))
                    (print-tabs 1))))
        (print-grupos)
        (dotimes (n-questao (min 4 (length *questoes-comvest*)))
             (dotimes (i (length (aref *respostas-questoes* n-questao)))
               (print-grupos))))
      (terpri stream)
      ;; Linhas de dados
      (loop for (abrev . curso) in (if (eq linhas :cursos)
                                       *cursos-comvest*
  