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