(until(for i(= n(read)r 1)n(++ r(* r n /.i)))prn.r)