let dir = ref (Sys.getcwd ())