0
357
digits
114
times #(list)
init
    2dup
    /
    inc
    *
m4
nip
unlines