{ N++;  
 for(I=1;I<=NF;I++) {
   $I=Trim ? trim($I) : $I;
   if( (L=length($I)) > Max[I]) Max[I]=L;
   ++Data[N,0]
   Data[N,I]=$I;}
}
END {
  for(J=1;J<=N;J++) {
    Str=Sep1="";
    if (Data[J,0]>1) {  
      for(I=1;I<=NF;I++) {
        L=length(Data[J,I]);
        Str = Str Sep1 chars(most(Width,Max[I]+Gutter)-L," ") Data[J,I];
        Sep1= OFS;
      }} else {Str=Data[J,1]}
    print Str;}
}
function most(x,y) {
	return x>y ? x : y
}
function trim(x) {
	sub(/^[ \t]*/,"",x)
	sub(/[ \t]*$/,"",x)
	return x	
}
function chars(n,  c,  out) {
	c = c ? c : "*"
	while(n-- > 0) out = out c
	return out
}