fact :: Int -> Int

fact x | x==1      = 1
       | otherwise = x * fact(x-1)

k x = x*t10

sumfact :: Int -> Int

sumfact y | y==0      = 0
          | otherwise = fact(y) + sumfact(y-1)

sumfact( arg1 )
