if ($ir eq "R") {
	print "Wert eingeben: ";
	chomp($wert = <STDIN>);
	print "Das Ergebnis lautet: " ,fakrek($wert),"\n";
}

sub fakrek {
	my $zahl =shift ;
	return undef if $zahl < 0;
	return 1 if $zahl == 0;
	return ($zahl * rek ($zahl -1));
}