cat(gsub("(\\w)","\\1\\1","000
00A
0A0
0AA
A00
A0A
A50
AAA
555
55F
5F5
5FF
F55
F5F
FF5
FFF"))