私だったら習慣上 perl で書くので、
ある人のホームディレクトリから拝借してきました。
X11/rgb.txt から TeX の色宣言を作るコードらしい。

try
while true do
Scanf.scanf " %d %d %d %s@\n" (fun r g b c ->
Printf.printf "\\definecolor{%s}{rgb}{%.5f,%.5f,%.5f}\n"
c (float r /. 255.0) (float g /. 255.0) (float b /. 255.0))
done
with End_of_file -> print_newline (); exit 0;;

だから何、といわれても困りますが。