iterate package:text

iterate f x returns an infinite Text of repeated applications of f to x:
iterate f x == [x, f x, f (f x), ...]