local r = function (a)
          a = assert (io.open (a, 'rb'))
    local b = a:read '*a'
    a:close ()
    return b
end
local w = function (a)
    return function (b)
        io.open (a, 'wb'):write (b):close ()
    end
end

local a = r 'hv.lua'

a = a:gsub ('; ' , '\n' )
a = a:gsub ('%] ', ']\n')
a = a:gsub ('%) ', ')\n')
a = a:gsub ('%]_', ']\n_')

a = a:gsub ('%["', '[ [[')
a = a:gsub ('"%]', ']]]')

a = a:gsub ('""', '[[]]')

a = a:gsub ('%("', '([[')
a = a:gsub ('"%)', ']])')

a = a:gsub ('"\\', '([[\\')
a = a:gsub ('"'  , ']])')

a = a:gsub ('(_+)',
    function (a)
        local b = #a
        return b == 1 and '_' or ('_%d'):format (b)
    end)

a = a:gsub ('\\x(%x?%x?%x?)',
    function (a)
        return string.char (tonumber (a, 16))
    end)

w 'a.lua' (a)