static JList showRegularlyUpdatedList(fS title, fO f, final int interval) {
  ret (JList) swingAndWait(func {
    final new JList list;
    showFrame(title, list);
    swingEvery(list, interval, 0, r {
      L<S> data = (L<S>) callF(f);
      fillListWithStrings(list, data);
    });
    ret list;
  });
}