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