xref: /original-bsd/usr.bin/pascal/USD.doc/clash.p (revision 3f73ce2f)
1program clash(output);
2var
3	i: integer;
4	c: char;
5begin
6	i := 1;
7	c := i;
8	write(c, i)
9end.
10