p-5 take-while, build-infinite-list complete