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