Wither Redstone Program

rednet.close("bottom")
rednet.open("bottom")

local white = 1
local blue = 2048
local green = 8192

function bundled(color, side)
  rs.setBundledOutput(side, color)
  sleep(1)
  rs.setBundledOutput(side, 0)
end

while true do
  local sndrId, msg, dist, prot = rednet.receive("UPDATE")
  -- Send redstone signals according to current status
  if msg == "BUILD" then
    bundled(white, "top")
  elseif msg == "REDST" then
    bundled(blue, "top")
  elseif msg == "END" then
    bundled(green, "top")
  end
  sleep(1)
end