 +        fprintf(f, "\"%s\"", mons[i1].mname);
 +    }
 +    fprintf(f, "]\n\n");
-+
-+}
-+
-+static void extract_itemdata_to_haskell(FILE* f)
-+{
 +}
 +
 +#ifdef G_SHEOL

 	register int fd;
 #ifdef CHDIR
 	register char *dir;
@@ -538,4 +546,657 @@ char *name;
 	return;
 }
 

diff --git a/sys/unix/unixmain.c b/sys/unix/unixmain.c
index a13514f..57c0b6f 100644
--- a/sys/unix/unixmain.c
+++ b/sys/unix/unixmain.c
@@ -44,11 +44,19 @@ static void NDECL(wd_message);
 static boolean wiz_error_flag = FALSE;
 #endif
