say (1,2,4...^*>$_)-1 while $_=get