print$a=chop($a).$a,$/for($a=pple.'*'x25 .a)x<>,x