sub product {
    return eval join '*',@_;
}