sub algorithmus{
  my ($input) = @_;
  my $i = $startwert;
  while (inkrementiere(\$i, $input)) {
    print output($i, $input);
  }
}