Code works in stk-simply but not in mit-scheme...