<>=~$";$a=$`+0;$b=$'+0; exit!print $a if length($a)>length($b); exit!print $b if length($b)>length($a); $a=~s/.//,$b=~s/.//,print$& while ord$a == ord$b; exit!print $a if $a=~/^4/ && $b=~/^7/; exit!print $b if $b=~/^4/ && $a=~/^7/; exit!print $a if $a > $b; exit!print $b if $b > $a;