@@ -0,0 +1,24 @@
1+{-# LANGUAGE BangPatterns, OverloadedStrings #-}
2+import Data.Monoid (mappend, mconcat)
3+import Prelude hiding (putStr)
4+import Data.Text.Lazy.Builder (Builder, fromText, toLazyText)
5+import Data.Text.Lazy.IO (putStr)
6+
7+import qualified Data.Text as T
8+
9+main :: IO ()
10+main = do
11+ putStr "Content-Type: text/html\n\n<table>"
12+ putStr . toLazyText $ mconcat (replicate 20000 makeRow)
13+ putStr "</table>"
14+
15+makeRow :: Builder
16+makeRow = mconcat (map makeCol [1..50])
17+
18+makeCol :: Int -> Builder
19+makeCol 1 = fromText "<tr><td>1</td>"
20+makeCol 50 = fromText "<td>50</td></tr>"
21+makeCol i = fromText "<td>" `mappend` (textInt i `mappend` fromText "</td>")
22+
23+textInt :: Int -> Builder
24+textInt = fromText . T.pack . show