on ask_for do 
	show["B(anana)"]
	show["A(pples)"]
	input["> "]
end

on process x do
	if x ~ "B"
		show["You said B"]
	elseif x ~ "A"
		show["You said A"]
	elseif x ~ "Q"
		active_game:0
	else 
		show[x, "unknown input"]
	end
end

active_game:1

while active_game ~ 1	
	user_input:ask_for[]
	process[user_input]
end