Some awfully written code while learning Scheme.