with text_io;use text_io;procedure a is s:string:=get_line;d,i,b:integer:=0;begin for j in 1..10353 loop d:=d+integer'value("16#"&s(j*3-2..j*3-1)&"#")*2**i;i:=i+8;if i>8 then put(character'val(d mod 512));i:=i-9;d:=d/512;end if;end loop;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).