[ File ] delete

var x := File new: (Path /tmp: ['a.txt']).
 x write: ['abc'].
 Pen write: x exists, stop.
 x delete.
 Pen write: x exists, stop.