FizzBuzz implementation with Scalaz

FizzBuzz.scala

import scalaz.Applicative
import scalaz.syntax.enum._
import scalaz.syntax.show._
import scalaz.std.anyVal._
import scalaz.effect.IO
import scalaz.effect.IO._

object Main extends App {

  def fizzBuzz(i: Int): String = if (i % 3 === 0 && i % 5 === 0) "FizzBuzz"
                                 else if (i % 3 === 0) "Fizz"
                                 else if (i % 5 === 0) "Buzz"
                                 else i.shows

  val io = Applicative[IO].sequence((1 |=> 100) map fizzBuzz map putStrLn)

  io.unsafePerformIO()
}