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