Exercise 4.7

let* gave me a bit more trouble - but got it working.