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