: two-or-less-newlines ( seq -- seq' ) dup dup '[ 2dup [ CHAR: \n = ] [ 1 > ] bi* and [ [ 1 - _ nth = ] [ 2 - _ nth = ] 2bi and not ] [ 2drop t ] if ] filter-index ;