fs = map (\i _ -> i * i) [1 .. 10]