diff --git a/lib/resource-1.0/api/examples/Makefile b/lib/resource-1.0/api/examples/Makefile
index b3d176815..b951b58b9 100644
--- a/lib/resource-1.0/api/examples/Makefile
+++ b/lib/resource-1.0/api/examples/Makefile
@@ -7,7 +7,11 @@ gfs:
 	runghc mkgfs.hs
 
 exx:
-	gf ExxSwe.gf ExxGer.gf ExxFre.gf ExxFin.gf ExxEng.gf <exx.gfs
+	gf exxs.gfcm <exx.gfs
+
+gfcm:
+	echo "pm | wf exxs.gfcm" | gf ExxSwe.gf ExxGer.gf ExxFin.gf ExxEng.gf 
+#ExxFre takes too long
 
 html:
 	cp ../Constructors.gf .
diff --git a/lib/resource-1.0/api/examples/MkLinks.hs b/lib/resource-1.0/api/examples/MkLinks.hs
index 844245903..e5c434dae 100644
--- a/lib/resource-1.0/api/examples/MkLinks.hs
+++ b/lib/resource-1.0/api/examples/MkLinks.hs
@@ -1,3 +1,5 @@
+import Char (isDigit)
+
 src = "Constructors.html"
 tgt = "Cons.html"
 linkfile ex = "links/" ++ ex ++ ".txt"
@@ -8,13 +10,13 @@ main = do
   readFile src >>= (mapM_ mkLink . lines)
 
 mkLink line = case break (=="--") (words (takeWhile (/='#')line)) of
-  (fun : ":" : typ, _ : num : ex) ->
+  (fun : ":" : typ, _ : num : ex) | isDigit (head num) ->
     appendFile tgt ("\n" ++ takeInit line ++ " " ++ link ex typ num)
   _ -> appendFile tgt ("\n" ++ line)
  where
    takeInit line = init (init (takeWhile (/='.') line))
-   link ex typ num = 
-     "<a href=\"" ++ linkfile (example typ num) ++ "\">" ++ unwords ex ++ "</a>"
+   link ex typ num =
+        "<a href=\"" ++ linkfile (example typ num) ++ "\">" ++ unwords ex ++ "</a>"
    example typ num = case reverse typ of
      ";":val:_ -> "ex" ++ init num ++ "_" ++ val 
      val:_     -> "ex" ++ init num ++ "_" ++ val