2.11BSD/doc/2.10/pascal/clash.p
program clash(output); var i: integer; c: char; begin i := 1; c := i; write(c, i) end.