(do((n 0)(p 1 q)(q 0(*(+ p q)n)))((format(<(incf n)52)"~D
"p)))