MODE R = LONG LONG REAL;
PROC h = (R xp)VOID: (STRING h := ""; R x := xp;
TO 16 DO x *:= 16; INT i =SHORTEN SHORTEN ENTIER x; 
h +:= "0123456789ABCDEF"[i+1]; x -:= i OD; print((xp, "->", h, newline)));

(R x := 1, p := 1;
TO 106 DO x *:= 1+p; p *:= 0.25 OD; h(1.0/long long sqrt(x)));

(R p := 1; TO 16 DO h(long long atan(p));  p *:= 0.5 OD)
# =>
+6.07252935008881256169446752504928263112390852150089772456976021e  -1->9B74EDA8435E5A67
+7.85398163397448309615660845819875721049292349843776455243736148e  -1->C90FDAA22168C234
+4.63647609000806116214256231461214402028537054286120263810933089e  -1->76B19C1586ED3DA2
+2.44978663126864154172082481211275810914144098381184067127375915e  -1->3EB6EBF25901BAC5
+1.24354994546761435031354849163871025573170191769804089915114119e  -1->1FD5BA9AAC2F6DC6
+6.24188099959573484739791129855051136062738877974991946075278169e  -2->0FFAADDB967EF4E3
+3.12398334302682762537117448924909770324956637254000402553155863e  -2->07FF556EEA5D892A
+1.56237286204768308028015212565703189111141398009054178814105074e  -2->03FFEAAB776E5356
+7.81234106010111129646339184219928162122281172501472355745390225e  -3->01FFFD555BBBA972
+3.90623013196697182762866531142438714035749011520285621521309515e  -3->00FFFFAAAADDDDB9
+1.95312251647881868512148262507671393161074677723351033905753396e  -3->007FFFF55556EEEE
+9.76562189559319430403430199717290851634197015810087590049007252e  -4->003FFFFEAAAAB777
+4.88281211194898275469239625644848666192361133135003037109403354e  -4->001FFFFFD55555BB
+2.44140620149361764016722943259659986212417790970617611807900461e  -4->000FFFFFFAAAAAAD
+1.22070311893670204239058646117956300930829409015787498451939838e  -4->0007FFFFFF555555
+6.10351561742087750216625691738291537851435368333461793376711343e  -5->0003FFFFFFEAAAAA
+3.05175781155260968618259534385360197509496751194378375310211569e  -5->0001FFFFFFFD5555
#