procedure gnat.io.a is begin put("ERROR");end;