$l = 2**64; $x = 1.1; $n = 1; 1 while ($x**$n++) < $l; print $n;;
467