camlimages
val find_nearest : Color.rgb Color.map -> Color.rgb -> int