HOW TO RETURN lagarias n:
    SELECT:
        n<0: RETURN -lagarias -n
        n in {0;1}: RETURN 0
        NO d IN {2..floor root n} HAS n mod d=0: RETURN 1
        ELSE: RETURN ((n/d) * lagarias d) + (d * lagarias (n/d))

PUT 0 IN col
FOR n IN {-99..100}:
    WRITE (lagarias n)>>6
    PUT col+1 IN col
    IF col mod 10 = 0: WRITE/

FOR m IN {1..20}:
    WRITE "D(10^`m>>2`) = `(lagarias (10**m))/7`"/