Tekkit Kraftwerk

local bundled_side = "back";

function sequenceReactor(delay, times, output)
 for i = 1, times, 1 do
  rs.setBundledOutput(bundled_side, output)
  sleep(0.1)
  rs.setBundledOutput(bundled_side, 0)
  sleep(delay-0.1)
 end
end

while true do
 if bit.band(rs.getBundledInput(bundled_side), 4)) == 4 then
  rs.setBundledOutput(bundled_side, 0)
  sequenceReactor(0.5, 56, 2)
  sequenceReactor(0.5, 46, 16)
  sequenceReactor(0.5, 7, 1)
  sequenceReactor(0.5, 1, 16)
 end
 rs.setBundledOutput(bundled_side, 9)
 sleep(0.1)
 rs.setBundledOutput(bundled_side, 8)
 sleep(0.4)
end