begin
comment wrong concatenation of two strings;
	string (32) s1, s2;
	string (64) sr;
	
	integer i, j;
	integer n1, n2, nr;
	n1 := 32;
	n2 := 32;
	nr := 64;
	s1 := "abcdef";
	s2 := "1234567890";
	
	sr := s1;
	for i := n1 until (nr-1) do 
	begin
		j := i - n1;
		sr(i|1) := s2(j|1);
	end;
	write(sr);
end.