read_line () |> String.to_seq |> List.of_seq |> List.fold_left (fun i x -> if ((List.length i) > 0) && (List.hd i) = x then i else x::i) [] |> List.rev |> List.to_seq |> String.of_seq |> print_string;print_newline ();;