Scanf.scanf "%d %d %d" (fun l m n ->
    let y = l * 100 + m * 25 + n in
    let y = y mod 1000 in
    let acc = y / 100 in
    let y = y mod 100 in
    let acc = acc + y / 25 in
    let y = y mod 25 in
    let acc = acc + y in
    Printf.printf "%d\n" acc
)