More work on implemeing SwissTM algorithm. Not functional yet, work in progress.