R and Scheme code...