An implementation of TELOS (EuLisp's reflective object system) in Scheme