eval {


    puts [clock format [clock seconds]]

    after 100 {
        set ::dupa 0
        after 5000 {set ::dupa 1}
        vwait ::dupa
    }
    set ::apud 0
    after 1500 {set ::apud 1}
    vwait ::apud

    puts [clock format [clock seconds]]
}