(define (guardarDiccionario)   ;;;;; guarda el diccionario en el archivo dic.txt
    (set 'diccionarioArchivo (open "dic.txt" "write"))
    (map escribe dic)
    (close diccionarioArchivo)
)
(define (escribe est)
    (write-line (substring (string est) 3 (- (length (string est)) 4)) diccionarioArchivo)
)