let () =
    let n = Scanf.scanf "%d\n" (fun x -> x) in 
    Printf.printf "%d\n" (n-1)