fibs 0 = 1 fibs 1 = 1 fibs n = fibs (n - 1) + fibs (n - 2) #### ones = 1 : ones integers = 1 : map (1+) integers