ch 5 ex 13: map, take, zip* via unfold