: ends ( seq -- a b ) [ first ] [ last ] bi ;
: increases ( seq m -- n ) 1 + <clumps> [ ends < ] count ;

"input.txt" ascii file-lines [ dec> ] map dup
1 increases .
3 increases .