let print_commas nl fct lst =
        let _ = List.fold_left
                (fun com elt ->
                        if com then begin
                                print ",";
                                if nl then new_line () else space ()
                        end else ();
                        fct elt;
                        true)
                false
                lst in
        ()

This web site is published by Informatikbüro Gerd Stolpmann