fs = take 10 coFs where coFs = [const $ i * i | i <- [1 ..]]