Numerical simulation of scalp cooling to prevent chemotherapy-induced alopecia