Login check re-implemented in scheme using combinators