123456789012345678
substr 122221,$i,1
(1,2,2,2,2,1)[$i]
(1,(2)x4,1)[$i]
vec'XX',$i,2