@h1{@{$all[0]}}=(1) x @{$all[0]};