program hello
do i=-10, 10
    write(*,*) i, mod(i, 3)
end do
end program hello
