A tail-recursive program that has been written in Scheme, in which it utilizes an accumulator as the input