Homework number 4 - fibonacci sussquences.

Consider the generalized fibonacci sequences:
4, 1, 5, 6, 11, 17, 28, ...
3, 2, 5, 7, 12, 19, 31, ...
Write a program that takes two numbers as input and prints as many Sussmans as the tenth number in the resulting fibonacci sequence.
USE RECURSION.

gfibs a b = f where f@(_:t) = a:b:zipWith(+)f t
sussquence = ((($putStrLn"Sussman").replicateM_.(!!9)).).gfibs