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

print join(" ",@_),"\n";