c

local modem = peripheral.wrap("front")
state = true
modem.open(1)

while true do
  local event = os.pullEvent("redstone")

  if rs.getInput("right") then
    modem.transmit(1,1, "on")
    modem.transmit(2,2, "off")
    sleep(9)
    modem.transmit(4,4, "tp")
  else
    modem.transmit(3,3, "tp")
    sleep(5)
    modem.transmit(2,2, "on")
    modem.transmit(1,1, "off")
    sleep(6)
  end
  sleep(2)
end