modified emailChecker.fs