let rgb r g b = ((  "rgb("
                  ^ string_of_int r ^ ","
                  ^ string_of_int g ^ ","
                  ^ string_of_int b ^ ")"
                 ) : color)