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