(let((n))(do((i 100(1- i)))((< i 3))(if(<(isqrt i)(sqrt i))(push i n)))(format t"[~{~A~^, ~}]"n))