module Main where

import Parallel
import System
import IO

main = do args <- getArgs
          let 
            n = read (args!!0) :: Int
          hPutStrLn stderr ("parfib " ++ (show n) ++ " = " ++ (show (nfib n)) ++ "\n")

nfib :: Int -> Int
nfib 0 = 1
nfib 1 = 1
nfib n = nf1+nf2+1
         where nf1 = nfib (n-1)
               nf2 = nfib (n-2)