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