pu7o

(defun trata-p (line)
    (if (equalp (subseq line 0 6) "p edge")
        (progn
            (for i = 8 to (length line) do
                (progn
                    (if (equalp (char line i) #\Space)
                        (progn
                            (setq numero_estados (parse-integer (subseq line 7 i)))
                            (setq oldi i)
                            (setq i (length line))))))
            (setq numero_ligacoes (parse-integer (subseq line (+ 1 oldi) (length line))))
            (setf array_ligacoes (make-array numero_estados))
            (for i = 0 to (- numero_estados 1) do
                (setf (aref array_ligacoes i) '())))))