Nonce benchmark

bench.hs

{-# LANGUAGE BangPatterns #-}
import Crypto.NaCl.Encrypt.PublicKey
import Crypto.NaCl.Nonce
import Data.List
import System.Environment

main = do
  [f] <- getArgs
  let n = createZeroNonce nonceLength
  print n
  print $ go n (read f :: Int)
 where
       go !n 0  = n
       go !n !x = go (incNonce n) (x-1)