Scanf.scanf "%s" (fun s ->
    let n = String.length s in
    print_endline @@
        if s.[0] = '-' || n <= 2 then "0" else
            String.sub s 0 (n - 2)
)