diff --git a/lib/src/api/libraryBrowser/MkLang.hs b/lib/src/api/libraryBrowser/MkLang.hs
new file mode 100644
index 000000000..94b5fde49
--- /dev/null
+++ b/lib/src/api/libraryBrowser/MkLang.hs
@@ -0,0 +1,16 @@
+
+import System.Environment (getArgs)
+import Data.List.Utils (replace)
+
+name = "LibraryBrowserEng.gf"
+
+main = do
+  a <- getArgs
+  case a of
+    lang:_ -> do
+      contents <- readFile name
+      let name'     = replace "Eng" lang name
+      let contents' = replace "Eng" lang contents
+      writeFile name' contents'
+      putStrLn $ "Wrote " ++ name'
+    _ -> print "You need to provide a language code"