-- Obliczanie silnii iteracyjnie
-- www.algorytm.org

fac :: Int -> Int
fac n
	| n <  0    = error "n musi być >= 0"
	| otherwise = foldr (*) 1 [1..n]