[ File ] size

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