Алгоритм цепей Маркова на Haskell

Не мог бы /dev/ поделиться реализацией алгоритма цепей Маркова (тот, который генерирует псевдоразумные тексты на основе других) на Haskell. А то, после прочтения алгоритмов на императивщине, как-то не проясняется - как это сделать в декларативщине. //captcha routers