gistfile1.hs

-- Copyright (c) 2011 by Łukasz Niemier <[email protected]>

import System( getArgs )

fibonacci = 0 : 1 : (zipWith (+) fibonacci $ tail fibonacci)

printFib x = if x < 0 then error "Index must be greater or equal 0" else print $ fibonacci !! x

main = do
       args <- getArgs
       mapM printFib $ map (\x -> read x::Int) args