#include <stdio.h>
#include <locale.h>
#include <caml/memory.h>
#include <caml/alloc.h>

CAMLprim value set_locale( value param )
{
    const char *s;
    s = String_val(param);
    setlocale(LC_NUMERIC, s);
    return Val_unit;
}