my @list = ( 1..6 );
print 0+map{(1)x$_}@list;
[download]