let rec($)m n=n>m&(m>1&()=Format.printf"%d
"m;n$Scanf.scanf"%_s@Y%n"pred);;0$1