Create case-lambda.ss

Copy from r6rs