procedure gnat.spitbol.patterns.a is s:string:=(1..47=>'x',48..999=>':');i:integer;begin
get_line(s,i);put(s(1+i/18*20..10+i/18*37+i/77*42));end;