vb@0: function "fak" {
vb@0:     param "n";
vb@0: 
vb@0:     choose {
vb@0:         when "n=0" value 1
vb@0:         otherwise value "$n * fak($n-1)";
vb@0:     }
vb@0: }
vb@0: