program FILTER

  integer :: I
  character(80) :: LINE

  do i = 1, 3
    read ( *, '(a)' ) line
    write ( *, '(a)' ) line
  end do

  do
    read ( *, '(a)', end=99 ) line
    if ( line(40:40) /= 'L' .and. line(40:40) /= 'N' ) cycle
    write ( *, '(a)' ) line
  end do
99 stop
end program FILTER