R Sender 2C

local symtime = 1
local maxreqtime = 5


local c = require("component")
local s = require("sides")
local r = c.redstone
local l = tonumber(io.read())

os.sleep(maxreqtime - (os.time()%maxreqtime)+1)
while l>0 do r.setOutput(s.right,(l%2)*15) l=(l-l%2)/2 os.sleep(symtime) end;
os.sleep(symtime)
r.setOutput(s.right,0)
r.setOutput(s.back,15)
os.sleep(2)
r.setOutput(s.back,0)
print("Finished")