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