module Loop (loop) where

import Data.Monoid (mappend, mempty)
import Data.Text.Lazy.Builder

loop  :: Int -> Builder
loop n = go 0 mempty
  where
    go i acc
      | i < n     = go (i+1) (acc `mappend` singleton 'a')
      | otherwise = acc