($a,$b,$c,$d,$e,$f)=(split//),print$a x 34,$b x5,$c.$d.$e.$f x13,$/
for(999999)x55,(855556)x8,841226,840226,(843336)x3,(877777)x21