import Color

scale min max n = min + n * (max - min)

blue' n = blue $ round (scale 0x20 0xf0 n)

toColor i = blue' $ 1 - (log (read i) / log 24000)

main = colorPairs toColor