module Main where

import System
import Fibonacci

--Benchmark: Anzahl der einsen Ausgeben.
main :: IO ()
main = do
  (mode':count':_) <- getArgs
  let mode    = read mode'
      count   = read count'
      zeckFunc | mode = zecks  -- Beide Funktionen sind Möglich
               | True = zecks'
      zeckLst = concat $ take count zeckFunc
      ones    = length $ filter id zeckLst
  print ones