$ perl Mathe.t
1..11
ok 1 - use Mathe;
ok 2 - ggT 0 0
ok 3 - ggT 1 1
ok 4 - ggT 13 27
ok 5 - ggT 100 120
ok 6 - ggT 120 100
ok 7 - factor(0)
ok 8 - factor(1)
ok 9 - factor(8)
ok 10 - factor(214711756)
ok 11 - factor(2147117569)