static double[] sqrAll(double[] a) {
  int n = l(a);
  double[] l = new[n];
  for i to n: l[i] = sqr(a[i]);
  ret l;
}