Le tridi 23 brumaire, an CCXII, Dustin Sallings a écrit :
>     let r = Unix.open_process_in ("tput " ^ x)
>     and buf = String.create 8 in
>     let len = input r buf 0 8 in
>     close_in r;

BTW, you should use Unix.close_process_in and not close_in, or you will
leave zombies.