program main implicit none integer*8::N,m character::A(0:3) data A/"O","O","O","X"/ read *,N print '(a)', A(IAND(N,3)) end program main