let hex r g b = (( "#" ^ Printf.sprintf "%X%X%X" r g b) : color )