(do*((n(read))(i n(1- i)))((format t"~V:@<~V@{*~}*~> "(1+(* n 2))(*(isqrt(-(* n n)(* i i)))2)0)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page