sqsum[kk_] := Module[{f1, r, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, 
      f13, f14, f15}, {f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, 
        f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, 
        f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, 
        f41, f42} = kk; r = f1*f1 + f2^2 + f3*f3 + f4^2 + f5*f5 + f6^2 + 
        f7^2 + f8*f8 + f9*f9 + f10*f10 + f11^2 + f12^2 + f13^2 + f14^2 + 
        f15^2 + f16^2 + f17^2 + f18^2 + f19^2 + f20^2 + f21^2 + f22^2 + 
        f23^2 + f24^2 + f25^2 + f26^2 + f27^2 + f28^2 + f29^2 + f30^2 + 
        f31^2 + f32^2 + f33^2 + f34^2 + f35^2 + f36^2 + f37^2 + f38^2 + 
        f39^2 + f40^2 + f41^2 + f42^2; Return[r]; ]