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:string:="0123456789abcdef";type
a is array(0..19)of u;pragma pack(a);z:a;for
z'address use r'address;for d'address use r'address;for s'address use r'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(0):=z(0)+(-z(1))/15-(2-z(0))/12-(5-z(0))/15;if's'=t(1)then
s:=float(r);l:=7;elsif'd'=t(1)then d:=long_float(r);l:=15;end
if;for i in 0..l loop put(h(natural(z(l-i))+1));end loop;new_line;q;end;