import Color

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

toColor i = red $ fromInteger $ round $ scale 0x20 0xf0 ((read i) :: Float)

main = colorPairs toColor