% perl -MList::Util=max -lwe '
print max map length, `COLUMNS=1000 top -bcS -n 1 2>err.txt`'
208