napraviListu :: Integer -> [Integer]
napraviListu 0 = []
napraviListu a =  ((a `mod` 10) : (napraviListu (a `div` 10)))

uListu :: Integer -> [Integer]
uListu x = reverse (napraviListu x)