rgbColor :: (Int, Int, Int) -> [Char]
rgbColor x
           | x == (0, 0, 0) = "black"
           | x == (255, 255, 255) = "white
           | x == (255, 0, 0) = "red"
           | x == (0, 255, 0) = "green"
           | x == (0, 0, 255) = "blue"
           | otherwise = "other color"