% Strings.

var hi: string := "hello world"

% This puts a string.

put hi


% We can determine its length:

put "The string `", hi, "' contains ", length(hi), " characters."
% Read and echo names; count them.

var count : int := 0
var person : string

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

loop
	put "Next name? " ..
	get person
	exit when person = "quit"
	put "The string `", person,
	      "' contains ", length(person), " characters."
end loop