Я использую тип FreeT из библиотеки free , чтобы написать эту функцию, которая "запускает" базовый...