string-lines [ " " split [ string>number ] map ] map
[ [ [ < ] monotonic-split length 1 = ] filter ]
[ [ [ > ] monotonic-split length 1 = ] filter ] bi append
[ 2 <clumps> [ first2 - abs 3 <= ] all? ] filter
! 279


string-lines [ " " split [ string>number ] map ] map
[
  [ dup length <iota> [ remove-nth-of ] with map ] keep suffix
  [ [ [ < ] monotonic-split length 1 = ] filter ]
  [ [ [ > ] monotonic-split length 1 = ] filter ] bi append
  [ 2 <clumps> [ first2 - abs 3 <= ] all? ] any?
] filter
! 343