sub ui_count {
    for (1) {
        $_[HEAP]->{counter}++;
    }
}