let chop_n_char n s = let len = String.length s in if len <= n +1 or n < 0 then s else Printf.sprintf "%s..." (String.sub s 0 (n+1))