let solver = StdOpt.str_option ()