+ a : ARRAY(INTEGER);
+ b : {INTEGER;};

a := ARRAY(INTEGER).create 1 to 3;
1.to 3 do { i : INTEGER;
  a.put i to i;
};

b := { arg : INTEGER;
  (arg * arg).print;
  '\n'.print;
};

a.foreach b;