An implementation of Scheme in Scheme