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