I did, but why it take so long to run it. It is still running, very weired. Can anyone explain?

then I wrote the following to check it up, but still it takes so long to run, even now, still couldn't get any result, why. Can anyone review it?

Thanks

f[x_, y_, z_, w_] := If[x y z w <= 1, Exp Sin[x y z w ], 0]

NIntegrate[f[x, y, z, w], {w, -5, 5}, {z, -5, 5}, {y, -5, 5}, {x, -5, 5}]

Many thanks