[Release] LuaUnF*ck - reverse LuaF*ck "protection"

I was VERY bored and decided to do this, even though I know LuaF*ck Isn't an obfuscator.

LuaF*ck: https://wearedevs.net/forum/t/26409

LuaUnF*ck:

local script = [=[
local _=string.char;getfenv()[_((#'...')*(#'...'..#'......')).._((#'...')*(#'...'..#'.......')).._(#'.........'..#'.......').._((#'.....'..#{})*(#'..')).._((#'.....')*(#'..'..#'...')).._((#'.....'..#'........')*(#'..')).._((#'.....'..#'.......')*(#'..')).._((#'.......')*(#'.'..#'.....')).._((#'.'..#'.')*(#'.'..#{})).._(#'.'..#{}..#'...')](_((#'...')*(#'...'..#'....')).._((#'.........')*(#'.'..#'...')).._((#'.....')*(#'..'..#'..')).._((#'...')*(#'...'..#'...')).._((#'.....'..#'........')*(#'..')).._((#'.....')*(#'..'..#'.')).._((#'...'..#'.......')*(#'...')).._((#'..'..#'..')*(#'.....')).._((#'....')*(#'........')).._(#'.........'..#'.......').._((#'.....')*(#'........')).._(#'....'..#'.').._((#'...')*(#'...'..#'........')).._(#'.'..#{}..#'.').._((#'....')*(#'..'..#'.........')).._((#'...'..#'.........')*(#'...')).._((#'..')*(#'.....'..#'.......')).._((#'.'..#{})*(#'.'..#'.')).._((#'.'..#'.......')*(#'..')).._(#'.........'..#'.......').._((#'.'..#'.......')*(#'..')).._(#'.'..#{}..#'.').._((#'.'..#'.')*(#'.'..#{})).._((#'..'..#'.....')*(#'....')).._(#'.....'..#'.........').._((#'...')*(#'...'..#'....')).._((#'.'..#'...')*(#'.........')).._((#'.....'..#'.....')*(#'..')).._((#'...')*(#'...'..#'...')).._((#'....')*(#'..'..#'.........')).._((#'..'..#'.')*(#'.....')).._((#'...'..#'.......')*(#'...')).._((#'.'..#{})*(#'.'..#'.')).._((#'........')*(#'....')).._((#'.......')*(#'.'..#'....')).._((#'..')*(#'..'..#{})).._(#'....'..#'.').._((#'.....'..#'.......')*(#'..')).._(#'.'..#{}..#'.').._((#'....')*(#'..'..#'.........')).._((#'.........')*(#'.'..#'...')).._((#'..')*(#'.....'..#'.......')).._((#'..')*(#'.....'..#'.....')).._((#'.'..#'......')*(#'..')).._(#'.........'..#'.......').._((#'........')*(#'.....')).._(#'....'..#'.').._((#'..')*(#'..'..#'...')).._((#'..'..#'...')*(#'..')).._((#'..')*(#'.'..#'.......')).._((#'.......')*(#'.'..#'....')).._((#'.'..#'.......')*(#'..')).._(#'.'..#{}..#'.').._((#'.'..#{})*(#'.'..#'.')).._((#'....')*(#'..'..#'.....')).._(#'.....'..#'.........').._((#'..')*(#'.....'..#'.')).._((#'...'..#'.........')*(#'...')).._((#'..')*(#'.....'..#'.....')).._((#'...'..#'...')*(#'...')).._((#'..'..#'.........')*(#'....')).._((#'.....')*(#'..'..#'.')).._((#'...')*(#'...'..#'.......')).._((#'.....'..#'.....')*(#'..')).._((#'.'..#'......')*(#'..')).._((#'.........')*(#'.'..#'.')).._((#'.'..#{})*(#'....')).._(#'....'..#'.').._((#'......')*(#'.'..#'.........')).._(#'.'..#{}..#'.').._((#'.....'..#'........')*(#'..')).._((#'...')*(#'...'..#'.........')).._((#'.....'..#'.......')*(#'..')).._((#'.'..#{})*(#'.'..#'.')).._((#'.'..#'......')*(#'..')).._((#'....'..#'.........')*(#'..')).._((#'.'..#{})*(#'....')).._(#'....'..#'.').._((#'..'..#'...')*(#'..')).._((#'..')*(#'..'..#'...')).._((#'.'..#'.......')*(#'..')).._((#'.........')*(#'.'..#'.')).._((#'..')*(#'.'..#'.......')).._(#'.'..#{}..#'.').._((#'..')*(#'.....'..#'.....')).._((#'..')*(#'.....'..#{})).._(#'.....'..#'.........').._((#'.......')*(#'.'..#'......')).._((#'......')*(#'.'..#'.........')).._((#'.'..#'.....')*(#'.......')).._((#'.'..#{})*(#'.'..#'.')).._((#'.....'..#'........')*(#'..')).._((#'....')*(#'.'..#{})).._((#'.'..#'.')*(#'.........')).._((#'.'..#{})*(#'....')).._(#'....'..#'.').._(#'....'..#'.'))()
]=]

local split_string = string.split or function(inputstr, sep)
        if sep == nil then
                sep = "%s"
        end
        local t={}
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
                table.insert(t, str)
        end
        return t
end
for num, line in next, split_string(script, "\n") do
    print(line:gsub("getfenv%(%)%[.+%]%((.+)%)%(%)", function (capture)
    	local loads = "local _ = string.char; return " .. capture
        local result = loadstring(loads)()
        return result
    end))
end

Output:

local _=string.char;function a()return"a"end;function b()return a().."b"end;function c()return b().."c"end;print(c())

Note: This only supports LuaF*ck with the loadstring option ticked.