An internal iterator

Iterator.frm

#Iterator

    -interface-

    start @(|>>|)

    -machine-

    $Start 
        |>>| 
            -> $Dec ^
    $Dec 
        |>| 
            i = i - 1
            i == 0 ? 
                -> $End ^
            :
                -> $Print ^
            :: ^
    $Print 
        |>|
            print(i)
            -> $Dec ^

    $End
        |>| 
            print("done") ^

    -actions-

    print[msg:String]

    -domain-

    var i:int = 5
##