Exempel program

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