BSD 1 development

[unix-history] / puman / clash.p

program clash(output);
var
	i: integer;
	c: char;
begin
	i := 1;
	c := i;
	write(c, i)
end.