(************************************************************ snd.ml Created : Fri Sep 6 01:45:39 2002 Last modified: Fri Sep 06 01:45:58 2002 Compile: ocamlopt.opt snd.ml -o snd # ************************************************************) let _ = print_string "snd initialized\n";