with text_io;use text_io;procedure q is r:long_long_float;d:long_float;s:float;type u is mod 16;t,h:array(u)of character:="0123456789abcdef";type a is array(0..19)of u;pragma pack(a);w,x,y,z:a;for w'address use r'address;for x'address use d'address;for y'address use s'address;l:natural:=19;begin get(t(1));while' '/=t(2)loop get(t(2));end loop;r:=long_long_float'value(get_line);z:=w;z(0):=z(0)+(-z(1))/15-(2-z(0))/12-(5-z(0))/15;if's'=t(1)then s:=float(r);l:=7;z:=y;end if;if'd'=t(1)then d:=long_float(r);l:=15;z:=x;end if;for i in 0..l loop put(h(z(l-i)));end loop;new_line;q;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).