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

+    return "ReplaceThisName";
+}
+
+static void extract_monsterdata_to_haskell(
+        FILE* f
+      , const char* variant
+      , const char* command_prefix )

+        if (passes_walls(pm)) {
+            fprintf(f, ", FlPhasing");
+        }
+#define AT(a, b) if (pm->mflags3 & a) { \
+    if ( comma_set ) fprintf(f, ", "); \
+    comma_set = 1;\
+    fprintf(f, "%s", b); \
+}
+        AT(M3_WANTSAMUL, "FlWantsAmulet");
+        AT(M3_WANTSBELL, "FlWantsBell");
+        AT(M3_WANTSBOOK, "FlWantsBook");
