(dotimes'401(format t"~V*~D
"(mod .'3)(+ .'1)(+ .'2)(* .'2)))