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