Say I start with an expression with potentially an arbitrary number of variables (input-dependent), for example Exp[x]Sin[y]z^(-1)w, and I want to expand in all variables to a certain power. I could do this
Series[Exp[x]Sin[y]z^(-1)w,{x,0,5},{y,0,5},{z,0,5},{w,0,5}]
But is there a more compact way to achieve this? Not to mention that this method fails when the number of variables depend on the inputs. I tried something like
inputs={x,y,z,w}
Thread[{inputs,0,5}]
This gives
{{x, 0, 5}, {y, 0, 5}, {z, 0, 5}, {w, 0, 5}}
as an output. This is as far as I got. I tried to extract the elements using Row and StringRiffle but it doesn't work. Any help is appreciated, thanks!
Edit: Changed my example from all exponentials to a more general one.