# 0=>A, B=>1, C=>2, D=>3, E=>4, F=>5
  # A joins
  $chat->tick(0, $stamp+0);
  print "A: " . join ", ", $chat->color(0);
  # B joins
  $chat->tick(1, $stamp+1);
  print "B: " . join ", ", $chat->color(1);
  # etc.