Some normal Scheme codes.