program W
implicit none
character(1000)::S
character::CH(4,2)=RESHAPE((/"O","o","I","l","0","0","1","1"/),(/4,2/))
integer::i,j
read*,S
do i=1,len_trim(S)
    do j=1,4
        if(S(i:i)==CH(j,1))S(i:i)=CH(j,2)
    end do
end do
print"(A)",trim(S)
end program W