with calendar;use calendar;procedure gnat.io.a is t,d:integer:=integer(seconds(clock)*999)rem 6;begin
t:=4240;if d>3 then t:=4224;elsif d>1 then t:=68420688;end if;loop
get(d);exit when d<0;put(d);if t rem 2>0 then put("*");end if;new_line;t:=t/2;end loop;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).