$z=$ARGV[0]/2;
for$a(1..10**$z-1){
	for($a..10**$z-1){
		print$a*$_." $a $_\n"if((join('',sort split'',$a*$_) eq join('',sort split'',"$a$_"))&&(length($a*$_)==$z*2)&&($a%10!=0||$_%10!=0));
	}
}