% Read and echo names; count them.

var count : int := 0

% How many names so far?

put "Please type a series of names."
put "Tell me 'quit' at the end"

loop
	put "Next name? " ..
	var person : string
	get person
	exit when person = "quit"
	put "Hi, ", person
	count := count + 1
end loop

put "I greeted ", count, " people."