Monoidal Fizzbuzz in Scala

fizzbuzz.scala

import scalaz._
import scalaz.Scalaz._

import scala.language.higherKinds

object Fizzbuzz extends App {
  def nums = Stream.from(1).map(_.toString)

  def every[A: Monoid](n: Int)(a: A): Stream[A] =
    Stream.fill(n - 1)(Monoid[A].zero) ++ a #:: every(n)(a)

  def fizzes = every(3)(Option("fizz"))

  def buzzes = every(5)(Option("buzz"))

  def pattern = fizzes.fzipWith(buzzes)(_ |+| _)

  def fizzbuzzes = pattern.fzipWith(nums)(_.getOrElse(_))

  fizzbuzzes.take(150).foreach(println)
}