execute::IO()
execute = do
-- leemos el archivo a convertir
putStr "ingrese el nombre del archivo a leer "
archivo<-getLine
texto<-readFile archivo
-- convertimos el archivo a una lista de lineas y le
-- quitamos los comentarios
let buffer = map borrarcomentarios(lines texto)
bufflista = divibuffer buffer
lista = slashsplit(head bufflista)
titulo = gettitle(lista)
autor = getauthor(lista)
fecha = getdate(lista)
maketitle = armartitulo titulo autor fecha
body = parsebody (tail bufflista) maketitle
in do
-- putStr (htmlhead titulo)
putStr body
-- putStr(unwords1 buffer)
-- putStr "cabeza \n"
-- putStr (head bufflista)
-- putStr "cuerpo \n"
-- putStr (unwords1 (tail bufflista))