drobiz kovanci x list  =
 case kovanci of
  h:t -> if  x>h then
           (drobiz kovanci (x-h) (list++[h]))++(drobiz t x list)
         else if x == h then
            [(list++[h])]
         else
           []
  [] -> []