let read_to_set f = (*Sestado.of_seq (List.to_seq (List.map f (String.split_on_char ' ' (read_line ()))))*) (read_line ()) |> (String.split_on_char ' ') |> (List.map f) |> List.to_seq |> Sestado.of_seq