Scheme code for guile, scheme48 and other things