Scanf.scanf "%d %d %d %d" (fun a b c d ->
    Printf.printf "%d\n" @@ min (d / 4) (min a (b / c))
)