/* Read multiple lines until a complete Lua statement  */
static int multiline(lua_State *L)
/* Read multiple lines until a complete Lua statement  */
static int multiline(lua_State *L)
{
    size_t len;
    const char *line = lua_tolstring(L, 1, &len);
    int status = luaL_loadbuffer(L, line, len, "=stdin");
    if (!incomplete(L, status) || !pushline(L, 0)) {
      lua_saveline(L, line);
      return status;
    }
    lua_pushliteral(L, "\n");
    lua_insert(L, -2);
    lua_concat(L, 3);
  }
}