MODE L = LONG LONG REAL;
L e := long long exp(1) - 2;
print(e); print(newline);
TO 380 DO e *:= 16; INT d = SHORTEN SHORTEN ENTIER e;
    print("0123456789ABCDEF"[d+1]); e -:= d OD
# a68g e.a68 -prec 500 #