m = peripheral.wrap("top")

x = 1

local w = ["PENIS", "HITLER", "NO", "YES", "RANDOM", "LOREM", "IPSUM", "SEX", "SUCH", "WOW", "DOGE", "BUTT"]

m.setTextScale(2)

function c(ms)
  local len = ms:len()
  w,y = m.getSize()
  xCoords = tonumber(math.ceil((w/2)-(len/2)))
  m.setCursorPos(xCoords, y/2)
  m.write(ms)
end

while true do
  if(x >= 32768) then
    x = 1
  else
    x = x*2
 end
  --print(x)
  m.setBackgroundColor(x)
  m.clear()
  c(w[math.random(1, w:len())])
  sleep(1)
end