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