#!/usr/bin/env bx
use b

Main()
	let(n, 1)
	cstr choice = NULL
	eachline(l)
		if Randint(n) == 0
			Free(choice)
			choice = strdup(l)
		++n
	if choice
		Say(choice)