Scanf.scanf "%d" (fun n -> Printf.printf "%d\n" @@ (n - 1) * (n - 1))