program speedrun
  implicit none
  character(7)::S
  integer i
  read*,S
  do i=1,6
    if(S(i:i+1)=="ao")S(i:i+1)="ki"
  end do
  print"(A)",S
end program speedrun