NetBSD/share/doc/ps1/04.pascal/clash.p

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