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))