let add_suffix s = List.map (fun x -> x -.- s)