(for i 0 400(prn:+(`(1 2,i)(mod i 3))i))