returnVals :: [Value] -> ExceptT GrLang.Error LuaGrLang Lua.NumResults
returnVals vals = do
  mapM_ (liftLua . Lua.push <=< allocateGrLang) vals
  return . fromIntegral $ length vals
returnVals :: [Value] -> ExceptT GrLang.Error LuaGrLang Lua.NumResults
returnVals vals = do
  mapM_ (liftLua . Lua.push <=< allocateGrLang) vals
  return . fromIntegral $ length vals
returnVals vals = do
  mapM_ (liftLua . Lua.push <=< allocateGrLang) vals
  return . fromIntegral $ length vals