quickchange cs n = listToMaybe (change cs n)

    > quickchange [5,2] 16
    Just [5,5,2,2,2]

    > quickchange [7] 16
    Nothing