let is_numeric a = fst (System.Double.TryParse a)