A Scheme implementation for embedded system