sub Adam () 
{ @_=(1);L:for(2..100){$i=@_;while(--$i){next L unless $_%$_[$i]}push @_,$_} @_ }
sub Maverick ()
{ for(1..100){push @_,$_;for(@_[1..($#_-1)]){pop @_ and last unless $_[-1]%$_}} @_ }