Look and say sequence in Go using Chan/Goroutine

ant.go

package main

import "fmt"

type genf func(chan<- uint8)

func gen(f genf) <-chan uint8 {
	c := make(chan uint8)
	go f(c)
	return c
}

type wrapf func(<-chan uint8, chan<- uint8)

func wrap(in <-chan uint8, f wrapf) <-chan uint8 {
	c := make(chan uint8)
	go f(in, c)
	return c
}

func ant(in <-chan uint8, out chan<- uint8) {
	n := <-in
	var c uint8 = 1
	for m := range in {
		if n != m {
			out <- c
			out <- n
			n = m
			c = 1
		} else {
			c += 1
		}
	}
	out <- n
	out <- c
	close(out)
}

func first(out chan<- uint8) {
	out <- 1
	close(out)
}

func main() {
	m := 1000000
	n := 1000000

	c := gen(first)
	for i := 1; i < m; i++ {
		c = wrap(c, ant)
	}
	for i := 0; i < n; i++ {
		<-c
	}
	fmt.Println(<-c)
}