begin
comment separate string to symbols;
	string (10) s;
	string (1)  ch;
	integer i;
	s := "abc1234def";
	for i:=0 step 1 until 9 do
	begin
		ch := s(i|1); writeon(ch); writeon("  ");
	end
end.