my $ggt = ggt($x, $y);
print "ggt: $ggt";
my $kgv = ($x / $ggt) * $y;
print "kgv: $kgv";
sub ggt {
  my ($x,$y) = @_;
  ($x,$y) = ($y,$x) if $y > $x;
  return 1 if ($y < 2);
  return $y if ($x % $y) == 0;
  $x -= $y;
  my $ggt = ggt($x,$y);
}