val create : r:uint8 -> g:uint8 -> b:uint8 -> a:uint8 -> colorval r : color -> uint8val g : color -> uint8val b : color -> uint8val a : color -> uint8val set_r : color -> uint8 -> unitval set_g : color -> uint8 -> unitval set_b : color -> uint8 -> unitval set_a : color -> uint8 -> unit