U0 SaphirTask() {
  I64 count;
  I64 i;
  CTask *task;
  while (1) {
    count = @windowed_task_count;
    for (i = 0; i < count; i++) {
      task = @windowed_task_index(i);
      @set_border_doc_for_win(task);
      @set_cursor_for_focused_win(task);
      @draw_saphir_border_for_win(task);
      @ensure_win_no_overlap_status_bar(task);
    }
    @update_status_bar;
    Sleep(1);
  }
}

Spawn(&SaphirTask, , "Saphir");