local function sparkel(...)
    local arg = {...}
    local looparg = type(arg[1]) == "string" and string.Explode(" ",arg[1],false) or arg
    --One pass to find the high and low point
    local max,min = tonumber(looparg[1]),tonumber(looparg[1])
    for k,v in pairs(looparg) do
        v = tonumber(v)
        max = max > v and max or v
        min = min < v and min or v
    end
    local scale = (max-min) / 7
    for k,v in pairs(looparg) do
        Msg(utf8.char(9600 + ( 1 + (v / scale))))
    end
    Msg("\n")
end

return sparkel