read_line () |> int_of_string |> (fun x -> if (x mod 2) = 0 then ((x / 2) - 1) + 2 else 1) |> print_int; print_newline ();