Add problem 48 in Scheme