# Pastebin sTeopqfi
change _ [] = []
change 0 _ = [[]]
change t (c:cs)
  | t < 0 = []
  | otherwise = change t cs ++ (map (\xs -> c:xs) (change (t-c) (c:cs)))