xref: /386bsd/usr/src/share/doc/ps1/04.pascal/clash.p (revision a2142627)

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