Cancelable Coroutines with Verse (using race)

routine.verse

<#> Usage
    Routine := SpawnRoutine(SomeLongTask)
    Routine.Cancel()

SpawnRoutine(Func : type{_()<suspends>:void}):routine = 
    Routine := routine{Func := Func}
    Routine.Start()
    return Routine

routine := class():
    Event : event() = event(){}
    Func : type{_()<suspends>:void} 

    Start():void = 
        spawn { RunRoutine() }

    RunRoutine()<suspends>: void = 
        race:
            Func()
            Event.Await()

    Cancel():void = 
        Event.Signal()