import System.IO.Unsafe

main = print (faktorial 5)

faktorial n	| n==0 = 1
			| True = seq (printBezIO $ "vichisljaem faktorial! " ++ show n)
						 (n*faktorial (n-1))
			
printBezIO = unsafePerformIO . print