ggT, kgV :: Int -> Int -> Int

ggT a 0 = a
ggT a b = ggT b (mod a b)

kgV a b = div (a*b) (ggT a b)


ggTL, kgVL :: [Int] -> Int

ggTL [x] = x
ggTL (x:xs) = ggT x (ggTL xs)

kgVL [x] = x
kgVL (x:xs) = kgV x (kgVL xs)