# 0=>A, B=>1, C=>2, D=>3, E=>4, F=>5
  # A joins
  $chat->tick(0, $stamp+0);
  # B joins
  $chat->tick(1, $stamp+1);
  # C joins
  $chat->tick(2, $stamp+2);
  # D joins
  $chat->tick(3, $stamp+3);
  # ...Time passes...
  # E joins
  $chat->tick(4, $stamp+10000+0);
  # F joins
  $chat->tick(4, $stamp+10000+1);

  # Get the colors:
  local $_;
  print "$_: " . join ", ", $chat->color($_) for 0..5;