-- exercise 2

fibs2 :: [Integer]
fibs2 = map fst $ iterate stepper (0, 1)
    where stepper (n0, n1) = (n1, n0 + n1)

-- exercise 3
fibs2 :: [Integer]
fibs2 = map fst $ iterate stepper (0, 1)
    where stepper (n0, n1) = (n1, n0 + n1)

-- exercise 3
fibs2 = map fst $ iterate stepper (0, 1)
    where stepper (n0, n1) = (n1, n0 + n1)

-- exercise 3