(loop(do((n(read))(i 0(-(if(< i 0)0 -1)i)))((not(format(=(mod-expt 78(1- #1=(+ n i))#1#)1)"~D
"#1#)))))