program main implicit none integer*8::N read *,N print '(a)', ACHAR(ICHAR("O")+9*ISHFT(IAND(N,3)+1,-2)) end program main