local b
local n = 0
local t = 0
local write = write

print "{ static const unsigned char __LUA_DATA[] = {"

repeat
  b = read(1)
  if b then
    write( strbyte(b), "," )
    if n == 20 then
      n = 0
      write "\n"
    end
    n = n + 1
    t = t + 1
  else
    break
  end
until false

print "\n};\n\n"
write( "lua_dobuffer( L, (const char *)__LUA_DATA, ", t, ', "colloquy.luac" );\n}\n');