Mini Shell

/* Wipe out any cluster structure */
BEG_G { $O = copy (NULL,$); }
E { clone ($O, $); }