package Chat::Pool::ANSI;
use base "Chat::Pool";

sub precalc_colors {(
  ["\033[31;1m"],
  ["\033[32;1m"],
  ["\033[33;1m"],
  ["\033[34;1m"],
  ["\033[35;1m"],
  ["\033[36;1m"],
  ["\033[37;1m"],
  ["\033[31m"],
  ["\033[32m"],
  ["\033[33m"],
  ["\033[34m"],
  ["\033[35m"],
  ["\033[36m"],
)}

# later...
printf "%s%s%s\n",
  ($chat->color($id))[0],
  $text,
  "\033[0m";