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