Scanf.scanf "%d" (fun l ->
    let q = l / 2 in
    Printf.printf "%d\n" @@ q * q
)