{
.# Result,N;
@ fak( .# N ;)
	{
	? N =? 0 
		:) ~1;
		:( ~N*fak( N-1 );
	}
	
« "Skriv N-värdet:";
N=»;
! N >? -1 :)
   {
   Result=fak(N);
	« "\nFakultet: ";
	« Result;
	« "\n Skrive N-värdet(negativt för at sluta):";
	N=»;
	} 
}