integer n,i
	read *,n
	if(n.lt.0)then
	print *,"n on neg."
	stop
	endif

	if(n.eq.0)then
	ifakt=1
	print 100,ifakt
	stop
100	format("fakt0=",I5)  
	endif
	
	call fakt(infakt,n)
	stop
	end