Help for this page
sub p{ %p=@_=3..1+pop;@p{2,map$f*$_,@_}=$f=$_ for@_;grep$p{$_},2,@_ }
sub p{ 2,grep{$f=$_,@p{map$f*$_,3..$_[0]/$f}=0if$p{$_}}%p=3..1+$_[0] }
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (396 votes), past polls
