#!perl -l
$_=pop;print,s/./$&$&/g,/./g,$_=join"",(0,(1..9)x11)[/../g]while/./