Разбить на купюры

Банкомат выдаёт наличные купюрами номиналом 5000, 1000, 500 и 100 рублей. Он действует жадно: выдаёт как можно больше самых крупных купюр, затем переходит к более мелким. Сумма всегда кратна 100, так что её можно выдать без остатка.

Напишите функцию dispense(amount), которая принимает сумму (неотрицательное целое, кратное 100) и возвращает список из четырёх чисел — сколько купюр каждого номинала выдано, в порядке [5000, 1000, 500, 100].

Пример:

dispense(6600) -> [1, 1, 1, 1]
dispense(0) -> [0, 0, 0, 0]