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