readColor ('#':color) =
  let (r,g,b) = readHexa color
  in RGB r g b
readColor ('#':color) =
  let (r,g,b) = readHexa color
  in RGB r g b
readColor ('#':color) =
  let (r,g,b) = readHexa color
  in RGB r g b