sum nums_to_n {
   my $n = shift;
   if ($n==0) return 0;
   else return $n + nums_to_n ($n-1);
}