open System let R T = stdin.ReadLine()|> T let RS T = stdin.ReadLine().Split()|>Array.map T let R2 T U = RS string|>fun c-> (c.[0]|>T),(c.[1]|>U) let R3 T U V = RS string|>fun c-> (c.[0]|>T),(c.[1]|>U),(c.[2]|>V) let R4 T U V W = RS string|>fun c-> (c.[0]|>T),(c.[1]|>U),(c.[2]|>V),(c.[3]|>W) let R5 T U V W X = RS string|>fun c-> (c.[0]|>T),(c.[1]|>U),(c.[2]|>V),(c.[3]|>W),(c.[4]|>X) [] let main argv = let N,D=R2 int int64 let _ = RS int RS int64 |>Array.sum |>fun c -> ((D+c-1L)/c) |>printfn "%d" 0