A program to manage a table-tennis tournament implementing the swiss-system