An embedded scheme implementation