[ List ] count

var x := List new.
 x
 put: ['a'] at: ['b'],
 put: ['c'] at: ['d'].
 Pen write: x count, stop.