read_line () |> String.to_seq |> List.of_seq |> List.sort_uniq (fun x y -> if (x = y ) then 0 else (-1)) |> List.to_seq |> String.of_seq |> print_string; print_newline ();;