rednet.open("top")

function a()
	shell.run("shell")
end

function b()
	while true do
		id, message = rednet.receive()
		events = { textutils.unserialize(message) }
		queueEvent(unpack(events))
	end
end

parallel.waitForAny(a, b)