(dotimes[% 401](prn(+([1 2%](mod% 3))%)))