Determination of Water Content in Shaving Foam Using Karl Fischer Titration