let strip_float_suffix s = let l = pred(String.length s) in match String.get s l with | 'f' | 'F' | 'l' | 'L' -> String.sub s 0 l | _ -> s