let d_d s = Sys.command s