diff --git a/Data/Text/Format.hs b/Data/Text/Format.hs
--- a/Data/Text/Format.hs
+++ b/Data/Text/Format.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, RelaxedPolyRec #-}
 
 -- |
 -- Module      : Data.Text.Format
@@ -59,16 +59,16 @@
 
 -- | Render a format string and arguments to a 'Builder'.
 build :: Params ps => Format -> ps -> Builder
-build fmt ps = zipParams fmt (crack fmt) (buildParams ps)
+build fmt ps = zipParams (crack fmt) (buildParams ps)
 {-# INLINE build #-}
 
-zipParams :: Format -> [Builder] -> [Builder] -> Builder
-zipParams fmt xs = go xs
+zipParams :: [Builder] -> [Builder] -> Builder
+zipParams fragments params = go fragments params
   where go (f:fs) (y:ys) = f <> y <> go fs ys
         go [f] []        = f
         go _ _ = error . LT.unpack $ format
                  "Data.Text.Format.build: {} sites, but {} parameters"
-                 (ST.count "{}" (fromFormat fmt), length xs)
+                 (length fragments - 1, length params)
 
 crack :: Format -> [Builder]
 crack = map fromText . ST.splitOn "{}" . fromFormat
diff --git a/benchmarks/Benchmarks.hs b/benchmarks/Benchmarks.hs
--- a/benchmarks/Benchmarks.hs
+++ b/benchmarks/Benchmarks.hs
@@ -12,6 +12,10 @@
 printf2 :: (P.PrintfArg a, P.PrintfArg b) => String -> (a,b) -> String
 printf2 f (a,b) = P.printf f a b
 
+printf3 :: (P.PrintfArg a, P.PrintfArg b, P.PrintfArg c) =>
+           String -> (a,b,c) -> String
+printf3 f (a,b,c) = P.printf f a b c
+
 main = defaultMain [
          bgroup "arity" [
            bench "0" $ nf (format "hi") ()
@@ -30,6 +34,9 @@
          , bench "format2" $ nf (format "hi mom {} {}\n") (pi::Double, "yeah"::T.Text)
          , bench "printf2" $ nf (printf2 "hi mom %f %s\n") (pi::Double, "yeah"::String)
          , bench "show2" $ nf (\(d,s) -> "hi mom " ++ show d ++ " " ++ show s ++ "\n") (pi::Double, "yeah"::String)
+         , bench "format3" $ nf (format "hi mom {} {} {}\n") (pi::Double, "yeah"::T.Text, 21212121::Int)
+         , bench "printf3" $ nf (printf3 "hi mom %f %s %d\n") (pi::Double, "yeah"::String, 21212121::Int)
+         , bench "show3" $ nf (\(d,s,i) -> "hi mom " ++ show d ++ " " ++ show s ++ "\n") (pi::Double, "yeah"::String, 21212121::Int)
          ]
        , bgroup "types" [
            bench "unit" $ nf (format "hi") ()
diff --git a/benchmarks/Simple.hs b/benchmarks/Simple.hs
--- a/benchmarks/Simple.hs
+++ b/benchmarks/Simple.hs
@@ -33,6 +33,10 @@
   let t = T.format "hi mom {}\n" (Only i)
   L.putStr . encodeUtf8 $ t
 
+bigint count = counting count $ \i x -> do
+  let t = T.format "hi mom {}\n" (Only (i+100000))
+  L.putStr . encodeUtf8 $ t
+
 double count = counting count $ \i x -> do
   let t = T.format "hi mom {}\n" (Only (fromIntegral i * dpi))
   L.putStr . encodeUtf8 $ t
@@ -85,6 +89,7 @@
              ("double":_) -> double
              ("p6":_) -> p6
              ("int":_)    -> int
+             ("bigint":_) -> bigint
              ("one":_)    -> one
              ("two":_)    -> two
              ("three":_)  -> three
diff --git a/text-format.cabal b/text-format.cabal
--- a/text-format.cabal
+++ b/text-format.cabal
@@ -1,5 +1,5 @@
 name:           text-format
-version:        0.3.0.2
+version:        0.3.0.3
 license:        BSD3
 license-file:   LICENSE
 homepage:       https://github.com/mailrank/text-format