(until(for i(= n(read)r 1)n(++ r(* r n /.i)))prn.r)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page