> fugv4 577723707 7
35

fugv 7673573 10 7 -> 3
fugv 1024 2 1 -> 1
fugv 1023 2 1 -> 10
fugv 345281 16 4 -> 2

szOsszeg :: Int -> Int
szOsszeg 0 = 0
szOsszeg x = ( x `mod` 10 ) + szOsszeg (x `div` 10)

> szOsszeg 123

szOsszeg1 :: Int -> Int -> Int
szOsszeg1 0 t = t
szOsszeg1 x t = szOsszeg1 (x `div` 10) ( t + x `mod` 10 )

> szOsszeg1 123 0