coins2minnum :: [Int] -> Int
coins2minnum (l : m : n : _) = l' + m' + n'
    where
        s = l * 100 + m * 25 + n
        (k', res1) = divMod s 1000
        (l', res2) = divMod res1 100
        (m', n') = divMod res2 25

main :: IO ()
main = print . coins2minnum . map read . lines =<< getContents