@_=(1);
L:for(2..100)
{ 
   $i=@_;
   while(--$i){next L unless $_ % $_[$i] }
   push @_,$_
}
print join(" ",@_),"\n";

##</code><code>##

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]%$_}} @_ }