refactor Result computation expression using CPS