histo := proc() local i,a; with(stats,statplots): a := array(1..nargs/2,[]); if type(nargs,even) then for i from 1 to nargs/2 do a[i] := Weight(args[2*i-1],args[2*i]); od; fi; statplots[histogram](convert(a,list)): end;