NR==1  { Width = Width ? Width : 40 
         Scale = $1 > Width ? $1 / Width : 1 
       }
       { Stars=int($1*Scale);
         print str(Width - Stars," ") str(Stars,"*") $0 
       }
function str(n,c, tmp) { 
    while((n--) > 0 ) tmp= c tmp 
    return tmp 
}