Added scheme code ( tested on Petite Chez Scheme Version 8.4 )