R Getter 2C

local symtime=1
local maxreqtime = 5


local c = require("component")
local s = require("sides")
local r = c.redstone
local l = 0

local o = ""
local p = 0
function f()
local u = tonumber(o:reverse())
 for i=1, #o do p=p*2+u%10 u=(u-u%10)/10
  end;
return(p)
end;



while r.getInput(s.left)==0 do  os.sleep(maxreqtime-(os.time()%maxreqtime)+1)
end;
print("Getting")
while r.getInput(s.back)==0 do if r.getInput(s.left)>0 then o=o.."1" else o=o.."0"  end;os.sleep(symtime) end;
print(f())