begin
  Arr(1,2,3).ForEach(procedure(x) -> if x>1 then Print(x));
end.