local m = peripheral.find"monitor"
m.setTextScale(0.5)

local W,H = m.getSize()

local cities = {}
local fp = assert(fs.open("/cities.txt","r"))
repeat
	local line = fp.readLine()
	table.insert(cities,line)
until not line
fp.close()

local verbs = {
	"recovered",
	"extinguished",
	"exsanguinated",
	"defenestrated",
	"obtained",
	"recovered",
	"mistreated",
	"relocated",
	"enraptured",
	"found",
	"seen",
	"heard",
	"devestated",
	"trusted",
	"distrusted",
	"promoted",
	"extended",
	"stretched",
	"squished",
	"moved",
	"rotated",
	"frozen",
	"unfrozen",
	"deployed",
	"redeployed",
	"shaken",
	"stirred",
	"discovered",
	"defeated",
	"thwarted",
	"confounded",
	"separated",
	"dissected",
	"submerged",
	"extracted",
	"zereod",
	"reset",
	"hidden",
	"concealed",
	"remade",
	"detected",
	"skolemized",
	"reinterpreted",
	"unfazed",
}

local function choice(list)
	return list[math.random(#list)]
end

while true do
	local x = math.random(0,99999)
	m.scroll(1)
	m.setCursorPos(1,H)
	m.write(("%5d bees have been %s in %s."):format(
		x, choice(verbs), choice(cities)
	))
	os.sleep(1)

end