Scheme code written for school implementing random functions