Source code from book "О Haskell по-человечески"