fact :: Int -> Int

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

fact( arg1 )
