Powerset in scheme