program hi
  use, intrinsic :: iso_fortran_env
  implicit none
  integer(int32) :: n
  character(len=:), allocatable :: s
  integer(int32) :: i
  read(input_unit, *) n
  allocate(character(len=n) :: s)
  read(input_unit, *) s
  do i = 1, n - 2
    if (s(i:i+2) == "404") then
      write(output_unit, '(a)') "Found"
      stop
    end if
  end do
  write(output_unit, '(a)') "NotFound"
end program