This was my solution to an early assignment in a course on functional programming I was a teaching assistant for at the University of Calgary. I think it came out quite well.