Changed the behavior of the ComonadApply instance for Indexed. Now it preserves the index of the tape in "function" position; that is, we have (Indexed i fs) <@> (Indexed _ xs) = Indexed i (fs <@> xs). This change allows us to access the index of an evaluated Indexed tape in a terminating manner; previously, this would result in an infinite loop.