initialize :: Lua ()
initialize = do
  globalState <- liftIO (initState 256 64)

  execLuaFile =<< liftIO (getDataFileName "src/repl/lua/help.lua")
  execLuaFile =<< liftIO (getDataFileName "src/repl/lua/grlang.lua")
  initGrLang globalState

  return ()
initialize :: Lua ()
initialize = do
  globalState <- liftIO (initState 256 64)

  execLuaFile =<< liftIO (getDataFileName "src/repl/lua/help.lua")
  execLuaFile =<< liftIO (getDataFileName "src/repl/lua/grlang.lua")
  initGrLang globalState

  return ()
initialize = do
  globalState <- liftIO (initState 256 64)

  execLuaFile =<< liftIO (getDataFileName "src/repl/lua/help.lua")
  execLuaFile =<< liftIO (getDataFileName "src/repl/lua/grlang.lua")
  initGrLang globalState

  return ()