while(<>){chomp;@l=split(/ /,$_);@o=shift(@l);
while(@l){$v=shift@l;push(@o,$v==$o[$#o]?" ":"] [");push(@o,$v);}
print"[",@o,"]\n"}