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;