read_line () |> String.to_seq |> Seq.fold_left (fun i x -> if ((String.length i) > 0) && (String.get i ((String.length i) - 1)) = x then i else i ^ (String.make 1 x)) "" |> print_string;print_newline ();;