вот этот простой нетривиальный балансер 1-to-3, 1 вход на 3 выхода
как он работает понятно, мы делим вход на 4, 3 четверти отдаем на выход, а остальную четверть заново пускаем на вход
то есть рекурсия такая простая
triple x =
let (a, b, c, d) = triple (x/4)
in (a + x/4, b + x/4, c + x/4, d + x/4)