/ (.)/,print map($_ x$',$`..$1),$/for<>