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