@r=qw(, ` @);for(@r){++$e;print"\e[0m-\e[1m\e[",eval{$e==3?31:32}."m$_"}