$out = $buf x 2;
vec($out,($_<<4)+8,1) = 0 for 0..length($buf)-1;