HaskellCourse/t1.hs

f n = case n of
	0 -> 1
	_ -> n * f (n - 1)

main :: IO ()
main = print ( f 5 )