let
print_to_stderr_red (s:string):unit =
Printf
.eprintf
"\027[31m%s\027[m\n"
s