sub f{map{eval join"*",1..$_}@_}