hT = {["_c"]=0}
function fopen(p,m)
 local d,p = fres(p)
 local f=d.open(p,m)
 if f then
  hT._c = hT._c + 1
  hT[hT._c] = {d,f}
  return hT._c
 end
 return false
end
function fclose(h)
 if hT[h] then
  hT[h][1].close(hT[h][2])
 end
 return false
end
function fread(h,n)
 if hT[h] then
  return hT[h][1].read(hT[h][2],n)
 end
 return false
end
function fwrite(h,d)
 if hT[h] then
  return hT[h][1].write(hT[h][2],d)
 end
 return false
end