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@_&&last if!($_[-1]%$_)}} }