Ible.flix

enum Ible[e] {
    case MkIter(Int32, Int32 -> e)
}

instance Iterable[Ible] {
    pub def iterator(rc: Region[r], s: Ible[a]): Iterator[a, r, r] \ r =
        let Ible.MkIter(n, f) = s;
        Iterator.range(rc, 0, n) |> Iterator.map(f)
}

def ible(s:String):Ible[Char] =
    Ible.MkIter(String.length(s), i -> String.charAt(i, s))

def main() : Unit \ IO =
    let s = "abc";
    foreach(c <- ible(s))
        println(c)